|
|
@@ -290,7 +290,7 @@ simple.plotROCgg<-function(df,vars,cols,x=0.7,y=0.3,units=c(),precise="FALSE",ta
|
|
|
yoff=0.05*stats::runif(1)
|
|
|
g<-g+ggplot2::geom_line(ggplot2::aes(x=!!(roc$FPR+xoff),y=!!(roc$TPR+yoff),color=!!lab),size=1.2)
|
|
|
aes_p=ggplot2::aes(x=!!(roc_metrics$FPR+xoff),y=!!(roc_metrics$TPR+yoff),color=!!lab)
|
|
|
- g<-g+ggplot2::geom_point(aes_p,size=4,shape=1,show.legend=FALSE)
|
|
|
+ g<-g+ggplot2::geom_point(aes_p,size=4,shape=19,show.legend=FALSE)
|
|
|
colors_used<-base::c(colors_used,col)
|
|
|
cvalues<-base::c(cvalues,lab)
|
|
|
base::print(sprintf('%d/%d',base::length(colors_used),base::length(cvalues)))
|
