在survminer生存圖上添加一行

Question

我的生存曲線如下

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) time=c(0,100, 200, 300, 500, 750)的非直線添加到圖中

我怎樣才能做到這一點？

Answer 1

我認為您正在尋找geom_curve（）或geom_segment（）參數-您必須指定曲線的類型，但這肯定是向ggplot添加自定義線的一種選擇。

這里是更多： https : //ggplot2.tidyverse.org/reference/geom_segment.html