r语言 生存曲线图例设置为两行

在R语言中，要创建生存曲线图（ Kaplan-Meier plot），通常使用`survfit`函数来估计生存率，然后用`ggsurvplot`或`survminer`包来绘制图形。如果你想将两条曲线显示为两行，可以借助`ggplot2`的基础结构和分层功能。

假设你有两个Survival Object，分别代表两个组的数据，例如`fit1`和`fit2`，你可以这样做：

library(survminer)  # 如果尚未安装，需先装这个包

# 假设fit1和fit2是来自 survfit 的对象
ggsurvplot(
  data = list(fit1 = fit1, fit2 = fit2),
  fun.data = "confint",  # 显示置信区间
  risk.table = TRUE,     # 显示风险表
  pval = TRUE,          # 显示p值
  breaks.x = "years",   # 设置x轴刻度单位为年
  palette = c("#E69F00", "#56B4E9"),  # 设定颜色
  xlab = "时间 (年)",  # 标题和标签
  ylab = "存活率",
  ggtheme = theme_minimal(),  # 使用简洁主题
  ncol = 2,             # 按两列布局
  legend.title = "组别",
  risk.table.row.names = c("fit1", "fit2")  # 曲线标题对应数据集名
) +
geom_vline(xintercept = c(0, max(fit1$time)), linetype = "dashed")  # 添加垂直参考线

在这个例子中，`ncol=2`会让两行图表并排显示。记得替换`fit1`和`fit2`为你实际的数据。完成上述设置后，你就可以得到包含两条生存曲线的两行图了。