服务热线
178 0020 3020
library("ggplot2")
library("ggpubr")
library("magrittr")
library("survival")
library("survminer")
datar61<-lung
life<-survfit(Surv(time,status)~sex,datar61)
ggsurvplot(life,conf.int = TRUE,conf.int.alpha=0.1,legend.title="Sex",legend.labs=c("Male","Female"),pval = TRUE,pval.method = TRUE,risk.table = "abs_pct",ncensor.plot=TRUE,surv.median.line = "hv",palette=c("blue","red"))+ggtitle("R2-30")
附件