내가 강조하고 부정이 그래프의 긍정적 인 영역의 값을 결정하기 위해 노력하고있어

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) 

내가 강조하고 싶은와 ! polyarea로 난 분 및 y에 대한 최대 설정 캔트 있지만, 단지 전체 면적

날 gaves 루프 안에있는 Y < 0 및 y> 0을위한 영역의 값을 계산한다 : https://preview.ibb.co/eeBfDw/probe_02_cv_mean.png

Answer 1

강조 표시는 확실하지 않지만 ar을 계산할 수 있습니다. 예 : 사용 : 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]) 

희망이 도움이됩니다!