突出显示图形的面积并确定它在r中的面积

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 <0和y> 0的区域的值，而对于多区域，我无法为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])

希望这可以帮助！