如何更改survminer中风险表中的默认标题“Number at risk”

Question

我使用survminer R包运行生存概率(Kaplan-Meier)曲线。我是在risk表上设置的，但是，我想更改默认标题"Number at risk“。我怎么能做到呢？

我使用了以下代码：

 survAL <- survfit(Surv(time, death) ~ AL.Factor, data = wave1)

 ggsurvplot(survAL, legend.title = "Allostatic Load", legend.labs = c("Low", 
"Mid", "High"), ylim = c(0.90, 1.0), conf.int = TRUE, pval = TRUE, 
 xlim = c(0,10), xlab = "Time in years", ylab = "Survival Probability", 
 break.time.by = 2, ggtheme = theme_light(), risk.table = TRUE, 
 risk.table.col = "strata",  data = wave1)

Answer 1

您可以使用ggsurvplot的risk.table.title选项

library(survminer)
library(survival)
survAL <- survfit(Surv(time, status) ~ sex, data = lung)

ggsurvplot(survAL, legend.title = "Allostatic Load", legend.labs = c("M","F"), 
 ylim = c(0.0, 1.0), conf.int = TRUE, pval = TRUE, 
 xlim = c(0,300), xlab = "Time", ylab = "Survival Probability", 
 break.time.by = 50, ggtheme = theme_light(), risk.table = TRUE, 
 risk.table.col = "strata",  risk.table.title="My title", data = lung)

​

​