使用patchwork堆叠含scale_y_break的ggplots时顺序混乱求助

当使用ggbreak的scale_y_break后出现patchwork堆叠顺序随机的问题，可以用以下两种稳定的工具实现图形的有序纵向堆叠：

方法1：使用gridExtra包的grid.arrange #

这个工具能严格按照传入图形的顺序排列，完全兼容ggbreak的断裂轴图形。

代码示例 #

# 安装并加载所需包
install.packages(c("ggplot2", "ggbreak", "gridExtra"))
library(ggplot2)
library(ggbreak)
library(gridExtra)

# 生成8组带差异的示例数据
set.seed(123)
df_list <- lapply(1:8, function(i) {
  data.frame(x = 1:10, y = c(rnorm(5, 10 + i*2), rnorm(5, 100 + i*2)))
})

# 创建带y轴断裂的图形（p1到p8）
p1 <- ggplot(df_list[[1]], aes(x, y)) + geom_point(color = "red") + scale_y_break(c(20, 80)) + ggtitle("Plot 1")
p2 <- ggplot(df_list[[2]], aes(x, y)) + geom_point(color = "orange") + scale_y_break(c(20, 80)) + ggtitle("Plot 2")
p3 <- ggplot(df_list[[3]], aes(x, y)) + geom_point(color = "yellow") + scale_y_break(c(20, 80)) + ggtitle("Plot 3")
p4 <- ggplot(df_list[[4]], aes(x, y)) + geom_point(color = "green") + scale_y_break(c(20, 80)) + ggtitle("Plot 4")
p5 <- ggplot(df_list[[5]], aes(x, y)) + geom_point(color = "cyan") + scale_y_break(c(20, 80)) + ggtitle("Plot 5")
p6 <- ggplot(df_list[[6]], aes(x, y)) + geom_point(color = "blue") + scale_y_break(c(20, 80)) + ggtitle("Plot 6")
p7 <- ggplot(df_list[[7]], aes(x, y)) + geom_point(color = "purple") + scale_y_break(c(20, 80)) + ggtitle("Plot 7")
p8 <- ggplot(df_list[[8]], aes(x, y)) + geom_point(color = "pink") + scale_y_break(c(20, 80)) + ggtitle("Plot 8")

# 纵向堆叠图形，指定1列排列
grid.arrange(p1, p2, p3, p4, p5, p6, p7, p8, ncol = 1)

输出效果 #

图形会严格按照p1到p8的顺序从上到下排列，每个图形的y轴断裂效果完整保留。

方法2：使用cowplot包的plot_grid #

该工具支持图形对齐，视觉效果更规整，同样能保证顺序不混乱。

代码示例 #

# 安装并加载cowplot
install.packages("cowplot")
library(cowplot)

# 纵向堆叠并对齐图形（使用上面已创建的p1-p8）
plot_grid(p1, p2, p3, p4, p5, p6, p7, p8, ncol = 1, align = "v", axis = "l")

• align = "v"：让所有图形在垂直方向对齐
• axis = "l"：以左侧轴为基准对齐，保证x轴位置统一

输出效果 #

图形按传入顺序排列，且所有图形的左侧轴完全对齐，整体布局更整齐。

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