|
|
@@ -272,7 +272,7 @@ simple.plotROCgg<-function(df,vars,cols,x=0.7,y=0.3,unit="ml",precise="FALSE",ta
|
|
|
sAUC=simple.sAUC(roc)
|
|
|
lab <- base::sprintf("[%s] AUC: %.2f (+- %.2f), OPT THR: %.2f",
|
|
|
var, auc, sAUC, roc_metrics$threshold)
|
|
|
- off=0.05*stats::runif()
|
|
|
+ off=0.05*stats::runif(1)
|
|
|
g<-g+ggplot2::geom_line(ggplot2::aes(x=!!(roc$FPR+off),y=!!roc$TPR,color=!!lab))
|
|
|
aes_p=ggplot2::aes(x=!!(roc_metrics$FPR+off),y=!!roc_metrics$TPR,color=!!lab)
|
|
|
g<-g+ggplot2::geom_point(aes_p,size=4,shape=1,show.legend=FALSE)
|
