Как добавить вертикальные линии и аннотацию к графику выживания с таблицей рисков (R)

Question

Я хочу иметь график выживания с таблицей рисков с вертикальной линией в 12 месяцев и 36 месяцев. Сначала я смог go это

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

Однако, когда я хочу добавить таблицу рисков следующим образом

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

, я получаю сообщение об ошибке «Не знаю, как» добавить таблицу figure1 $ к сюжету "

Какие-нибудь записи?

Answer 1

Ваш вопрос не очень понятен - неясно, что вы пробовали, какой пакет вы использовали, и т.д. c ..

Я предполагаю, что вы используете 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

^{Создано в 2020-04-21 пакетом представ. (v0.3.0)}