Styling in ggplot2, adding myTheme

R/roc.R

@@ -288,6 +288,13 @@ simple.plotROCgg<-function(df,vars,cols,x=0.7,y=0.3,unit="ml",precise="FALSE",ta
       ggplot2::ylab('sensitivity')+
       ggplot2::scale_color_manual(name='Variables',values=colors_used)+
       ggplot2::guides(color = ggplot2::guide_legend(position = "inside"))+
+      myTheme()+
       ggplot2::theme(legend.position.inside=base::c(x,y))
 
 }
+
+myTheme<-function(){
+   ggplot2::theme(
+            axis.text=element_text(size=12),
+            axis.title=element_text(size=14,face="bold"))
+}