r - 在 survminer 生存图中添加一条线

Question

我有以下生存曲线

require("survival")
library(survminer)
fit <- survfit(Surv(time, status) ~ 1, data = lung)
ggsurvplot(fit,  palette = "jco",risk.table = TRUE)

我想将带有 xtime=c(0,100, 200, 300, 500, 750)和 y的非直线添加到绘图中surv=c(1, 0.99, 0.95, 0.92, 0.88, 0.82)

我怎样才能做到这一点？

Answer 1

我认为您正在寻找 geom_curve() 或 geom_segment() 参数 - 您必须指定曲线的类型，但这肯定是向您的 ggplot 添加自定义线的一种选择。

这里有更多：https ://ggplot2.tidyverse.org/reference/geom_segment.html