|
|
@@ -124,7 +124,7 @@ kaplan.meier.plot.gg<-function(x,var,...){
|
|
|
my.title=set.from.list('my.title',tit,...)
|
|
|
my.n=set.from.list('my.n',2,...)
|
|
|
my.ylab=set.from.list('my.ylab',ylab,...)
|
|
|
-
|
|
|
+ my.y=set.from.list('my.y',0.1,...)
|
|
|
|
|
|
|
|
|
base::print(base::sprintf('my.n=%f',my.n))
|
|
|
@@ -161,7 +161,8 @@ kaplan.meier.plot.gg<-function(x,var,...){
|
|
|
q<-ggsurvfit::ggsurvfit(s1,lwd=1.0,censor=TRUE,censor.shape='+',censor.size=10)+
|
|
|
ggplot2::ylim(0,1)+
|
|
|
ggsurvfit::add_legend_title(my.legend.title)+
|
|
|
- ggsurvfit::add_pvalue("annotation", size = 5)+
|
|
|
+ ggsurvfit::add_pvalue("annotation", size = 5,y=my.y)+
|
|
|
+ #ggsurvfit::add_pvalue("caption", size = 5)+
|
|
|
#add_pvalue("caption", size = 5)+
|
|
|
ggsurvfit::add_confidence_interval()+
|
|
|
#add_risktable()+
|
