在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)将非直线添加到图中

我该怎么做呢？

Answer 1

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

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