在R中向ggsurvplot添加一条直线垂直线

Question

我试图在R中创建一个漂亮的生存图。是否可以在使用ggsurvplot（）函数创建的生存图中添加一条垂直线？我想以这种方式显示时间阈值。

我已经尝试过使用abline（）函数，如下面的代码所示。

surv_object <- Surv(time = data1$survive_time)
fit1 <- survfit(surv_object~sex,data = data1)
ggsurvplot(fit1, data = data1, pval = TRUE, xlab="Time [days]", risk.table="percentage",surv.median.line="hv")
abline(v=200)

但是它给了我以下错误：

Error in int_abline(a = a, b = b, h = h, v = v, untf = untf, ...):   plot.new has not been called yet
Traceback:

1. abline(v = 120)
2. int_abline(a = a, b = b, h = h, v = v, untf = untf, ...)

有什么方法可以在生存情节中添加这样的线条吗？为什么它不被认为是情节？

Answer 1

ggsurvplot是ggplot2的扩展，因此如果要向绘图添加任何内容，您将需要使用ggplot函数以获得最佳结果。唯一恼人的挂断是ggsurvplots存储为一个对象，其中包含多个项目（包括ggplot，称为plot）。一旦你知道这一点，就可以轻松地将垂直线添加到ggsurvplot：

yoursurvplot<-ggsurvplot(fit1, data = data1, pval = TRUE, xlab="Time [days]", risk.table="percentage",surv.median.line="hv")

yoursurvplot$plot + geom_vline(xintercept = 200)

当我为两个我正在比较的癌症队列添加5年生存时间的垂直线时，这对我有用。