mettre en évidence une zone d'un graphique et déterminer sa zone en r

Question

salut tout le monde je suis en train de mettre en évidence et de déterminer la valeur du négatif et les points positifs sur ce graphique:

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) 

je veux souligner et calculer la valeur des zones pour lesquelles y < 0 et y> 0 dans la boucle, alors qu'avec polyarea je ne peux pas mis un min et max pour y, il me gaves que la superficie totale

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

Answer 1

pas sûr de mettre en évidence, mais vous pouvez calculer le ar ea utilisant: 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]) 

espérons que cela aide!