|
|
@@ -276,12 +276,13 @@ simple.plotROCgg<-function(df,vars,cols,x=0.7,y=0.3,unit="ml",precise="FALSE",ta
|
|
|
g<-g+ggplot2::geom_line(ggplot2::aes(x=!!roc$FPR,y=!!roc$TPR,color=!!lab))
|
|
|
aes_p=ggplot2::aes(x=!!roc_metrics$FPR,y=!!roc_metrics$TPR,color=!!lab)
|
|
|
g<-g+ggplot2::geom_point(aes_p,size=4,shape=1,show.legend=FALSE)
|
|
|
- colors_used<-base::c(colors_used,col)
|
|
|
- cvalues<-base::c(cvalues,lab)
|
|
|
+ colors_used<-base::c(colors_used,!!col)
|
|
|
+ cvalues<-base::c(cvalues,!!lab)
|
|
|
i=i+1
|
|
|
}
|
|
|
-
|
|
|
+
|
|
|
}
|
|
|
+ base::print(sprintf('%d/%d',base::length(colors_used),base::length(cvalues)))
|
|
|
base::names(colors_used)<-cvalues
|
|
|
g+ggplot2::xlab('1-specificity')+
|
|
|
ggplot2::ylab('sensitivity')+
|
