У меня есть следующая кривая выживания
require("survival")
library(survminer)
fit <- survfit(Surv(time, status) ~ 1, data = lung)
ggsurvplot(fit, palette = "jco",risk.table = TRUE)
Я хотел бы добавить на график не прямую линию с x time=c(0,100, 200, 300, 500, 750)
и y surv=c(1, 0.99, 0.95, 0.92, 0.88, 0.82)
Как я могусделать это?