R语言用已有的生存模型预测生存曲线

在R语言中使用已有的生存模型预测生存曲线，可以使用survfit函数。这个函数可以利用Kaplan-Meier方法、Cox比例风险模型等方法生成生存曲线。

首先，需要用survfit函数生成生存曲线对象，其中输入参数为已有的生存模型对象。例如：

library(survival)
fit <- coxph(Surv(time, status) ~ age + sex, data = lung)
surv_obj <- survfit(fit)

其中，fit是已有的Cox比例风险模型对象，surv_obj是生成的生存曲线对象。

接下来，可以使用plot函数绘制生存曲线图，例如：

plot(surv_obj, xlab = "Time", ylab = "Survival Probability")

这样就可以得到生存曲线图，x轴是时间，y轴是生存概率。