R语言patchwork包设置相同widths参数但子图宽度不一致的解决咨询

问题根源在于第3、4行仅包含单个子图，单独设置plot_layout的widths时，比例只作用于该行现有元素，导致和有两个子图的第2行列宽比例不匹配。要让第2-4行左侧面板宽度一致，可采用以下两种方法：

方法1：用plot_spacer()填充空位置，统一每行元素数量 #

在只有单个子图的行里，用plot_spacer()补全第二个位置，确保每行都是两个元素，此时widths=c(2,1)的比例会在所有行中统一生效：

library(ggplot2)
library(patchwork)

d1 <- runif(500)
d2 <- rep(c("Treatment","Control"),each=250)
d3 <- rbeta(500,shape1=100,shape2=3)
d4 <- d3 + rnorm(500,mean=0,sd=0.1)
plotData <- data.frame(d1,d2,d3,d4)

p1 <- ggplot(data=plotData) + geom_point(aes(x=d3, y=d4))
p2 <- ggplot(data=plotData) + geom_boxplot(aes(x=d2,y=d1,fill=d2))+
theme(legend.position="none")
p3 <- ggplot(data=plotData) +
  geom_histogram(aes(x=d1, color=I("black"),fill=I("orchid")))
p4 <- ggplot(data=plotData) +
  geom_histogram(aes(x=d3, color=I("black"),fill=I("goldenrod")))

# 修改后的排列代码
{p1 + p2 + plot_layout(ncol=2, widths = c(1, 2))}/
{p3 + p4 + plot_layout(ncol = 2, widths = c(2, 1))}/
{p3 + plot_spacer() + plot_layout(ncol = 2, widths = c(2, 1))}/
{p4 + plot_spacer() + plot_layout(ncol = 2, widths = c(2, 1))}

方法2：全局布局统一列宽 #

通过全局plot_layout设置列宽，仅单独调整第一行的子图宽度，其余行继承全局比例：

library(ggplot2)
library(patchwork)

# 数据和子图定义同前，此处省略

# 组合绘图并应用全局布局
(p1 + p2 + plot_layout(widths = c(1,2))) /
(p3 + p4) /
(p3 + plot_spacer()) /
(p4 + plot_spacer()) +
plot_layout(ncol=2, widths = c(2,1))

这样第一行的子图宽度会单独设置为1:2，第2-4行则统一使用2:1的列宽比例，保证左侧面板宽度一致。

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