如何让gridExtra::marrangeGrob按行排列绘图？byrow=TRUE无效

问题背景 #

使用以下R代码生成6个ggplot并排列时，绘图默认按列填充：

library(ggplot2)
l <- list(1:6)
for(i in 1:6){
  l[[i]] <- ggplot(data=data.frame(x=1:10, y=1:10)) +
    geom_point(aes(x=x, y=y)) +
    ggtitle(i)
}
ml <- marrangeGrob(l, nrow=3, ncol=2)
ml

得到的排列顺序为：

1 4
2 5
3 6

但需求是按行排列，期望顺序：

1 2
3 4
5 6

尝试设置byrow=TRUE无效，需找到可行的实现方式。

解决方案 #

marrangeGrob本身没有byrow参数，无法直接控制填充方向，可通过两种方式实现按行排列：

1. 调整绘图列表的顺序 #

先重新排序列表中的绘图元素，让它们的顺序匹配按行填充的需求，再传入marrangeGrob：

library(ggplot2)
library(gridExtra)

# 生成绘图列表
l <- list()
for(i in 1:6){
  l[[i]] <- ggplot(data=data.frame(x=1:10, y=1:10)) +
    geom_point(aes(x=x, y=y)) +
    ggtitle(i)
}

# 生成按行排列的索引顺序
row_fill_order <- matrix(1:6, nrow=3, ncol=2, byrow=TRUE) |> as.vector()
# 重新排序列表
l <- l[row_fill_order]

# 排列绘图
ml <- marrangeGrob(l, nrow=3, ncol=2)
ml

2. 使用grid.arrange（单页场景） #

如果只需要在单页展示所有绘图，直接使用grid.arrange并设置byrow=TRUE即可：

library(ggplot2)
library(gridExtra)

l <- list()
for(i in 1:6){
  l[[i]] <- ggplot(data=data.frame(x=1:10, y=1:10)) +
    geom_point(aes(x=x, y=y)) +
    ggtitle(i)
}

# 按行排列绘图
grid.arrange(grobs = l, nrow=3, ncol=2, byrow=TRUE)

补充说明 #

• marrangeGrob针对多页绘图场景设计，核心逻辑是按列表顺序依次填充页面，因此必须提前调整列表元素顺序来实现按行排列。
• grid.arrange是单页绘图排列工具，支持byrow参数直接控制填充方向，更适合单页展示的需求。

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