如何用patchwork为分面ggplot设置不同宽度？

要让第三个分面图的宽度是前两个的一半，关键是把plot_layout()的widths参数和布局结构对应上，下面是具体的解决办法：

1. 示例代码准备 #

先构造包含普通图和分面图的示例：

library(ggplot2)
library(patchwork)

# 两个普通ggplot图
p1 <- ggplot(mtcars, aes(mpg, wt)) + geom_point() + labs(title = "图1")
p2 <- ggplot(mtcars, aes(mpg, disp)) + geom_point() + labs(title = "图2")

# 分面ggplot图
p3 <- ggplot(mtcars, aes(mpg, hp)) + 
  geom_point() + 
  facet_wrap(~cyl, nrow = 1) + 
  labs(title = "分面图3")

2. 横向并排布局（直接生效） #

如果三个图是横向排列，直接在plot_layout中指定宽度比例c(2,2,1)，即可让p3的宽度为p1/p2的一半：

p1 + p2 + p3 + plot_layout(widths = c(2, 2, 1))

3. 两行布局（自定义布局结构） #

要是你的布局是前两个图在上一行，第三个图在下一行，默认p3会占满整行宽度，这时候需要用design参数自定义布局，把p3限制在对应宽度区域：

# 定义布局模板：A、B对应前两个图，C对应第三个图，#代表空白占位
layout_template <- "
AB#
  C#
"
p1 + p2 + p3 + plot_layout(design = layout_template, widths = c(2, 2, 1))

4. 排查宽度失效的常见原因 #

• 布局结构不匹配：比如两行布局时p3默认跨所有列，widths仅控制列宽，必须用design将p3定位到对应列；
• 分面图边距过大：可通过调整边距让比例更直观，比如p3 + theme(plot.margin = margin(5,5,5,5, "pt"))；
• 参数顺序错误：widths的顺序必须和图的排列顺序一一对应。

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