我的代码:
a<-ggsurvplot(fit,
pval="p<0.001", pval.size=3,conf.int = F,censor=F,
xlab="Time(months)",
risk.table = TRUE,
table.title="F",
linetype = c(1,1),
surv.median.line = "hv",
xaxs = "i",
yaxs = "i",
ylab="Overall survival(%)",
xlim=c(0,72),
axes.offset=FALSE,
break.time.by=12,
legend.title = "",
palette = c("blue", "red"),
risk.tbale.y.col="T",
legend = c(0.8,0.9),
legend.labs = c("Chemoradiotherapy", "Chemotherapy"),
risk.tbale.title=F,
tables.theme = theme_cleantable())
图如下: