如何在ggplot2中为分层生存曲线设置不同线型？

核心问题是你未将linetype美学属性与分组变量绑定，仅修改图例不会影响图中曲线。无需拆分数据框，按以下步骤快速实现：

1. 用fortify()将生存分析对象转换为ggplot兼容的数据框
2. 在aes()中同时映射color和linetype到分组变量（如strata）
3. 用scale_linetype_manual()指定对应分组的线型，同步设置颜色（如果需要）

示例代码：

# 生成生存分析模型对象
fit <- survfit(Surv(time, status) ~ trt, data = your_dataset)
# 转换为ggplot可用的数据框
fit_data <- fortify(fit)
# 绘制分层生存曲线
ggplot(fit_data, aes(x = time, y = surv, color = strata, linetype = strata)) +
  geom_step() +
  # 为指定分组设置线型：trt=0用虚线，trt=1用实线
  scale_linetype_manual(values = c("trt=0" = "dashed", "trt=1" = "solid")) +
  # 可选：为分组设置对应颜色
  scale_color_manual(values = c("trt=0" = "#2c3e50", "trt=1" = "#e74c3c")) +
  labs(x = "随访时间", y = "生存率", color = "治疗分组", linetype = "治疗分组")

注意：scale_linetype_manual中的分组标签必须与fit_data$strata中的实际值完全匹配，比如如果生存对象的分组标签是"0"和"1"，就把参数改成c("0" = "dashed", "1" = "solid")。

内容的提问来源于stack exchange，提问作者Miguel Angel Arnau