R 4.3.3中survminer包ggsurvplot生存图与风险表对齐异常求助

• 检查并更新survminer包
  R版本升级后，旧版survminer易出现兼容性问题，执行以下代码更新至最新版：

  remove.packages("survminer")
  install.packages("survminer")
  library(survminer)
  

• 统一x轴参数设置
  强制生存图与风险表使用相同的x轴范围、刻度间隔，确保刻度完全重合：

  # fit为你的生存分析模型对象
  ggsurvplot(
    fit,
    risk.table = TRUE,
    xlim = c(0, 10),          # 指定x轴起止范围
    break.x.by = 2,           # 设置刻度间隔
    xlab = "时间（年）",
    risk.table.col = "strata",
    legend.title = "分组"
  )
  

• 调整风险表布局参数
  风险表的高度、字体大小可能导致对齐偏移，手动设置相关参数修正：

  ggsurvplot(
    fit,
    risk.table = TRUE,
    risk.table.height = 0.25, # 控制风险表高度，避免挤压或拉伸
    risk.table.fontsize = 3.5,# 调整字体大小，防止刻度错位
    risk.table.y.text.col = TRUE,
    risk.table.y.text = FALSE
  )
  

• 手动拼接生存图与风险表
  若自动对齐失效，使用ggarrange（来自ggpubr包）手动组合，完全控制垂直对齐：

  library(ggpubr)
  # 单独绘制生存图
  surv_plot <- ggsurvplot(fit, risk.table = FALSE)$plot
  # 单独提取风险表
  risk_table <- ggsurvplot(fit, risk.table = TRUE, plot = FALSE)$table
  # 垂直拼接并对齐
  ggarrange(surv_plot, risk_table, nrow = 2, heights = c(3, 1), align = "v")
  

• 验证时间变量一致性
  确认生存分析的时间变量单位统一（如均为“年”），避免因单位差异导致刻度错位。

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