Adding unit to ROC legend

R/roc.R

@@ -274,8 +274,8 @@ simple.plotROCgg<-function(df,vars,cols,x=0.7,y=0.3,unit="ml",precise="FALSE",ta
          x1=df[df[,target]==1,var]
          x0=df[df[,target]==0,var]
          mwu=stats::wilcox.test(x1,x0)
-         lab <- base::sprintf("[%s] AUC: %.2f (%.2f), THR: %.1f se/sp: %.0f/%.0f %% p=%.3f",
-                           var, auc, sAUC, roc_metrics$threshold,
+         lab <- base::sprintf("[%s] AUC: %.2f (%.2f), THR: %.1f %s se/sp: %.0f/%.0f %% p=%.3f",
+                           var, auc, sAUC, roc_metrics$threshold,unit,
                            100*roc_metrics$TPR,100-100*roc_metrics$FPR,mwu$p.value)
          xoff=0.05*stats::runif(1)
          yoff=0.05*stats::runif(1)