服务热线
178 0020 3020
install.packages("survival")
install.packages("survminer")
library(survival)
library(ggplot2)
library(survminer)
mydata<- survfit(Surv(time,status)~sex,data=lung)
ggsurvplot(mydata,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-18")
附件