gridExtra::marrangegrob导出时ggbreak::scale_y_break失效问题问询

问题原因 #

ggbreak生成的带断轴图表并非标准ggplot对象，它通过自定义grob图形元素实现断轴效果。而gridExtra::marrangegrob直接处理ggplot对象时，只会提取标准ggplot的默认grob结构，无法识别ggbreak添加的自定义断轴组件，最终导致导出PDF后断轴消失。

解决方案 #

方案1：使用patchwork拼接（推荐） #

patchwork对ggbreak的兼容性更好，能直接保留断轴效果：

library(ggplot2)
library(ggbreak)
library(patchwork)

# 创建带断轴的图
p1 <- ggplot(mtcars, aes(mpg, hp)) +
  geom_point() +
  scale_y_break(c(150, 250))

p2 <- ggplot(mtcars, aes(mpg, wt)) +
  geom_point() +
  scale_y_break(c(3, 4))

# 垂直拼接两个图
combined_plot <- p1 / p2

# 导出PDF
ggsave("broken_axis_patchwork.pdf", combined_plot, width=8, height=10)

方案2：提取ggbreak的grob后用gridExtra拼接 #

如果必须使用gridExtra，需要先通过ggplotGrob()提取包含断轴的完整grob对象，再进行拼接：

library(ggplot2)
library(ggbreak)
library(gridExtra)

# 创建带断轴的图
p1 <- ggplot(mtcars, aes(mpg, hp)) +
  geom_point() +
  scale_y_break(c(150, 250))

p2 <- ggplot(mtcars, aes(mpg, wt)) +
  geom_point() +
  scale_y_break(c(3, 4))

# 提取每个图的完整grob（包含断轴）
g1 <- ggplotGrob(p1)
g2 <- ggplotGrob(p2)

# 拼接并导出
combined_grob <- marrangegrob(list(g1, g2), nrow=2, ncol=1)
ggsave("broken_axis_gridExtra_fix.pdf", combined_grob, width=8, height=10)

总结 #

这并非包的bug，而是工具兼容性问题：gridExtra::marrangegrob默认不支持ggbreak的自定义grob扩展。选择patchwork或提前提取grob的方式，即可解决导出后断轴丢失的问题。

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