使用lines()为ggsurvplot的KM曲线添加线条报错求解决

错误根源 #

你遇到的问题是因为混用了Base R绘图函数（lines()）和ggplot2对象。ggsurvplot()返回的是一个包含生存曲线绘图（存储在$plot字段）和风险表的列表，并非Base R的绘图设备对象。直接用lines()对其操作会触发类型不匹配的错误。

修正方案 #

要在ggsurvplot生成的生存曲线上添加线条，需要使用ggplot2的geom_line()图层，而非Base R的lines()。具体步骤如下：

1. 从ggsurvplot结果中提取核心的ggplot对象
2. 使用geom_line()添加自定义线条
3. 确保新线条的x/y轴与原生存曲线的轴范围匹配

修正后的代码 #

# 保留原ggsurvplot代码
c <- ggsurvplot(osfit, K_M_curves, pval = TRUE , risk.table = TRUE, tables.height = 0.2, tables.theme = theme_cleantable(), legend.title ="Treatment" ,  legend.labs = c("xx", "No/Other Treatment"), palette = c("blue4","darkred"), ggtheme = theme_bw(), xlab = "Days", ylab = " Overall survival", pval.size = 3, pval.coord= c(50,0.25), log.rank.weights = "n" , surv.median.line = "hv")

# 提取ggplot对象
surv_plot <- c$plot

# 添加自定义线条（根据你的output2数据）
updated_plot <- surv_plot + 
  geom_line(data = output2, aes(x = time, y = mean_OS_P), color = "black", linetype = "solid")

# 显示最终绘图
print(updated_plot)

额外注意事项 #

• 确保output2$time的数值范围与原生存曲线的x轴（Days）一致，否则线条可能无法正确对齐
• 可以通过调整geom_line()的参数（如color、linetype、size）自定义线条样式

内容的提问来源于stack exchange，提问作者Francesco Corrado