如何解决 patchwork 纵向排列多个 ggbreak 图时的顺序异常？

2026-11-04数据阿明

可以使用 cowplot::plot_grid() 替代 patchwork。如果当前环境直接组合断轴图时出现异常，可以先用 ggplotify::as.ggplot(print(p)) 将每张断轴图转换为完整的绘图对象，再按列表顺序排列。

目前还无法确定“顺序混乱”的具体原因。建议先取消 axes = "collect_y"，检查单图和两图组合的表现，再决定是否需要转换对象。

为什么需要检查断轴和组合方式？

ggbreak 会将坐标轴的显示范围拆成多个子面板，组合时需要处理完整的断轴图绘制结果。官方 FAQ 说明，从 ggbreak 0.2.0 起，patchwork、cowplot 和 gridExtra 可以直接组合断轴图；更早版本存在经过 ggplotGrob() 后丢失断轴的问题，可通过先调用 print() 绕过。这个历史问题不能直接说明当前异常的原因，但包版本值得检查。ggbreak 官方说明

axes = "collect_y" 用于收集重复的 y 轴，不控制图的排列顺序。排查时先保留各图的坐标轴，可以减少组合过程中的处理步骤。patchwork 参数说明

先保留 patchwork，取消坐标轴收集

假设 Be1 到 Be8 已经创建，先用列表明确排列顺序：

library(patchwork)

plots <- list(Be1, Be2, Be3, Be4, Be5, Be6, Be7, Be8)

Be.plot <- wrap_plots(
  plots,
  ncol = 1,
  axes = "keep"
)

print(Be.plot)

如果仍然异常，先单独运行 print(Be8)，再只组合 Be1 和 Be8，以区分单张断轴图的绘制问题和多图组合问题。显式使用列表便于检查输入顺序，但不能保证修复底层兼容问题。

使用 cowplot，必要时先转换断轴图

在支持直接组合的环境中，可以先尝试：

Be.plot <- cowplot::plot_grid(
  plotlist = plots,
  ncol = 1
)

print(Be.plot)

plotlist 接收待排列的图列表，ncol = 1 将图纵向排列。cowplot 官方文档

如果直接组合仍然出现断轴丢失或布局异常，可以先转换每张图：

# 如尚未安装：
# install.packages(c("ggplotify", "cowplot"))

plots_fixed <- lapply(plots, function(p) {
  ggplotify::as.ggplot(print(p))
})

Be.plot <- cowplot::plot_grid(
  plotlist = plots_fixed,
  ncol = 1
)

print(Be.plot)

转换时，先用 print(p) 触发断轴图的绘制，再将绘制结果转为可组合对象。ggbreak 官方示例也使用了这种转换方式。ggbreak 转换示例

也可以将转换后的列表交回 patchwork：

Be.plot <- patchwork::wrap_plots(plots_fixed, ncol = 1)
print(Be.plot)

使用时需要注意什么？

先在原始 Be1 到 Be8 上完成标题、图例、主题和断轴设置，再进行转换。转换后的对象承载完整绘制结果，不宜再依赖外层组合自动收集内部坐标轴、图例或精确对齐内部面板。

八张图纵向排列时，要给输出留出足够的高度，避免标题和刻度挤在一起。当前材料没有提供实际数据、其余七张图的定义、包版本和可查看的截图，因此无法复现问题，也无法断定故障来自哪一处。可以用以下命令补充环境信息：

packageVersion("ggplot2")
packageVersion("ggbreak")
packageVersion("patchwork")
sessionInfo()

移除 facet_wrap() 后问题仍然存在，不能据此认定分面是原因；应继续观察单图和最小两图组合的实际表现，定位问题。