在KM ggsurvplot顶部绘制“扩展”预测存活率

我想把这两块地集中在一块地上。这将允许我检查长期生存是如何演变的，同时直观地评估分布的拟合度

你能帮我吗

数据库

---

su_obj我想对此有很多不同的想法，但如果有帮助，这里有一个简单的方法

fit_0_obj <- ggsurvplot(fit_0)

ggplot(survival_ext,aes(x=time, y=value, color=variable)) +
  geom_line() +
  labs(x="Time",
       y="Survival probability",
       color="") +
  geom_step(data = fit_0_obj$data.survplot, aes(x=time, y=surv, color=group))

---

哇，这正是我要找的Txs