如何将垂直线和注释添加到具有风险 table (R) 的生存图

Question

我想要一个带有风险 table 的生存图，垂直线分别为 12 个月和 36 个月。最初我能够做到这一点

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

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

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

我收到 "Don't know how to add figure1$table to a plot"

的错误消息

有什么建议吗？

Answer 1

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

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

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 package (v0.3.0)}

于 2020-04-21 创建

如何将垂直线和注释添加到具有风险 table (R) 的生存图

How to add vertical lines and annotation to survival plot with risk table (R)

r

intercept

ggplot2

survival-analysis

geom-vline