ggplot与grob布局问题：如何将3幅ggplot按指定方式排列

嘿，刚好能帮你搞定这个排版需求！你想要让g1尺寸更大，夹在g2和g3中间，你的代码思路已经对了，我来补全并优化一下，给你两种可行的方案：

方法一：延续你的grid/gridExtra思路 #

你已经定义了布局矩阵，只需要把代码补全，确保grob的顺序和布局矩阵的索引对应上就行：

# 加载必要的包
library(ggplot2)
library(grid)
library(gridExtra)

# 创建三个ggplot对象（给标题方便区分）
g1 = ggplot(data = data.frame(x = 1 ,y =1), aes(x = x, y = y)) + geom_point(size = 5) + ggtitle("g1 (中间大图)")
g2 = ggplot(data = data.frame(x = 1 ,y =1), aes(x = x, y = y)) + geom_point(size = 5) + ggtitle("g2 (左侧小图)")
g3 = ggplot(data = data.frame(x = 1 ,y =1), aes(x = x, y = y)) + geom_point(size = 5) + ggtitle("g3 (右侧小图)")

# 定义布局矩阵：数字对应grob的索引，1=g1，2=g2，3=g3
lay <- rbind(c(2,1,1,1,3), 
             c(2,1,1,1,3))

# 转换为grob对象并完成排版
grid.arrange(grobs = list(ggplotGrob(g1), ggplotGrob(g2), ggplotGrob(g3)), 
             layout_matrix = lay)

代码解释： #

• 布局矩阵lay里，每一行的数字代表对应位置放哪个grob：2对应g2，1对应g1，3对应g3。g1占了中间3列，所以宽度是g2/g3的3倍，完全满足“尺寸更大”的要求。
• 注意grid.arrange的grobs参数是按索引顺序传递的，所以第一个元素是g1（对应矩阵里的1），第二个是g2（对应2），第三个是g3（对应3）。

方法二：用patchwork包更简洁实现 #

如果你愿意尝试更现代的ggplot排版工具，patchwork包能让这个需求实现起来更直观，代码也更简洁：

library(ggplot2)
library(patchwork)

# 同样先创建三个ggplot对象（和上面一致）
g1 = ggplot(data = data.frame(x = 1 ,y =1), aes(x = x, y = y)) + geom_point(size = 5) + ggtitle("g1 (中间大图)")
g2 = ggplot(data = data.frame(x = 1 ,y =1), aes(x = x, y = y)) + geom_point(size = 5) + ggtitle("g2 (左侧小图)")
g3 = ggplot(data = data.frame(x = 1 ,y =1), aes(x = x, y = y)) + geom_point(size = 5) + ggtitle("g3 (右侧小图)")

# 直接用+拼接图形，通过plot_layout设置宽度比例
g2 + g1 + g3 + plot_layout(widths = c(1, 3, 1))

代码解释： #

• plot_layout(widths = c(1,3,1))直接指定了三个图的宽度比例：g2占1份，g1占3份，g3占1份，完美实现你要的“g1尺寸更大，位于g2和g3之间”的布局，可读性拉满。

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