Adding option to overload y-axis label

R/km.R

@@ -53,6 +53,7 @@ set.from.list<-function(var,default,...){
 #' * my.labels labels for cases
 #' * draw.axis draw title and axis (FALSE)
 #' * my.n number of classes (2)
+#' * my.ylab label for y axis (Overall survival probability)
 #'@return graphical object 
 #'
 #'@export
@@ -74,6 +75,7 @@ kaplan.meier.plot.gg<-function(x,var,...){
        
    varName=set.from.list('varName',var,...)
   	tit=base::sprintf('Kaplan-Meier plot by %s',varName)
+   ylab='Overall survival probability'
         
    comment=set.from.list('comment','',...)
    my.labels=set.from.list('my.labels',c(),...)
@@ -83,13 +85,13 @@ kaplan.meier.plot.gg<-function(x,var,...){
    draw.axis=set.from.list('draw.axis',FALSE,...)
    my.title=set.from.list('my.title',tit,...)
    my.n=set.from.list('my.n',2,...)
+   my.ylab=set.from.list('my.ylab',ylab,...)
       
    
    
    base::print(base::sprintf('my.n=%f',my.n))
    
    xlab=base::sprintf('Time (%ss)',unit)
-   ylab='Overall survival probability'
    if (my.n==4)
     	cols=base::c('dodgerblue2', 'orchid2','orange','green')
    else	
@@ -129,7 +131,7 @@ kaplan.meier.plot.gg<-function(x,var,...){
   		   ggplot2::scale_fill_manual(values=cols, breaks = labs,labels=my.labels) +
    		ggplot2::labs(x=NULL, y=NULL)
     if (draw.axis){
-        q<-q+ggplot2::ggtitle(my.title)+ggplot2::xlab(xlab)+ggplot2::ylab(ylab)
+        q<-q+ggplot2::ggtitle(my.title)+ggplot2::xlab(xlab)+ggplot2::ylab(my.ylab)
     }
    		
     

man/kaplan.meier.plot.gg.Rd

@@ -22,6 +22,7 @@ kaplan.meier.plot.gg(x, var, ...)
 \item my.labels labels for cases
 \item draw.axis draw title and axis (FALSE)
 \item my.n number of classes (2)
+\item my.ylab label for y axis (Overall survival probability)
 }}
 }
 \value{