突出显示图形的一个区域，并确定它在区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的循环中，而与polyarea我不能设定最低和y的一个最大，它gaves我只是总面积

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

Answer 1

不确定突出显示，但你可以计算出ar EA使用：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]) 

希望这有助于！