服务热线
178 0020 3020
library(survival)
library(ggplot2)
library(survminer)
my_df <- survfit(Surv(time,status)~sex,data=lung)
ggsurvplot(my_df,conf.int=TRUE,pval=TRUE,surv.median.line="hv",legend.title="sex",legend.labs=c("male","female"),risk.table=TRUE,ncensor.plot=TRUE)+ggtitle("R2-37")
附件