r - 如何使用风险表 (R) 在生存图中添加垂直线和注释

Question

我想要一个带有风险表的生存图，该表在 12 个月和 36 个月时有一条垂直线。最初我能够做到这一点

figure1$plot + geom_vline(xintercept = 12) + geom_vline(intercept = 36)

但是，当我想按如下方式添加风险表时

figure1$plot + figure1$table + geom_vline(xintercept = 12) + geom_vline(intercept = 36)

我收到“不知道如何将 figure1$table 添加到绘图”的错误消息

有推荐吗？

Answer 1

你的问题不是很清楚——不清楚你尝试了什么，你使用了哪个包，等等。

我猜您正在使用survminer并正在尝试修改绘图对象并将其与风险表一起绘制。下面的可重现示例显示了您执行此操作的方式：

library(survminer)
library(survival)
fit <- survfit(Surv(time, status) ~ sex, data = lung)
p1 <- ggsurvplot(fit, risk.table = TRUE) 
p1$plot <- p1$plot + 
  geom_vline(xintercept = 250) + 
  geom_vline(xintercept = 360)
p1

^{由reprex 包于 2020-04-21 创建(v0.3.0)}