服务热线
178 0020 3020
> library(ggplot2)
> library(ggpubr)
> library(magrittr)
> library(survival)
> library(survminer)
f1<-survfit(Surv(time,status)~sex,data=lung)
> ggsurvplot(f1,data=lung,color = "sex",palette = c("red","blue"),pval = TRUE,conf.int=TRUE,surv.median.line="hv",legend.title="SEX",legend.labs=c("Male","Female"),risk.table = TRUE,risk.table.col="sex",ncensor.plot=TRUE,title="R2-40")
附件