服务热线
178 0020 3020
> install.packages("ggpubr")
> install.packages("survminer")
> library(survival)
> library(survminer)
> data<-lung
> fit<- survfit(Surv(time, status) ~ sex, data, conf.type = "log-log")
> ggsurvplot(fit,data,pval = TRUE,conf.int = TRUE,conf.int.alpha = 0.2, surv.median.line = "hv",
legend.labs = c("Male","Female"),legend.title = "SEX", risk.table = TRUE,risk.table.col = "sex",ncensor.plot = TRUE, palette = c("lightcoral","steelblue"),title = "R02-28")
附件