Question

大家好我试图突出显示并确定此图表中负面和正面区域的价值：

    probe_02 <- data.frame(col1=probe_02_cv$Mean, 
                           col2=probe_02_cv_m, col3=probe_02_cv_M, col4=probe_02sd)
            xlabel <- "E [V]"
        ylabel <- "I[pA]"
        probe02 <- probe_02$col1 + outer(probe_02$col4, c(1,-1))
        with(probe_02, 
             plot(
               x21, ymean, type="l", ylim=range(probe02), ylab = ylabel, xlab = xlabel,
               panel.first=polygon(c(x21,rev(x21)), c(probe02[,1],rev(probe02[,2])),
                                   border=NA, col="#ebebeb")
             )
        )
polyarea(x = x21, y= ymean)

我想突出显示并计算循环内y＆lt; 0和y＆gt; 0的区域的值，而polyarea不能设置y的最小值和最大值，它只给出了总面积

：https://preview.ibb.co/eeBfDw/probe_02_cv_mean.png

Answer 1

不确定是否突出显示，但您可以使用https://artax.karlin.mff.cuni.cz/r-help/library/flux/html/auc.html

计算区域

pos <- ymean > 0
flux::auc(ymean[pos], x21[pos])
flux::auc(ymean[!pos], x21[!pos])

希望这有帮助！

突出显示图形的一个区域并确定它在r中的区域

1 个答案: