服务热线
178 0020 3020
install.packages('survival')
install.packages('survminer')
library(survival)
library(survminer)
library(ggplot2)
library(ggpubr)
library(magrittr)
lung
a<-survfit(Surv(time,status)~sex,data=lung);a
?ggsurvplot
ggsurvplot(a,data=lung,title='R2-24',conf.int=T,pval=T,surv.median.line='hv',risk.table=T,risk.color='sex',ncensor.plot=T,legend.title='Sex',legend.labs=c('Male','Female'))
附件