如何并排排列ggplot2对象并保证二者绘图区域大小相等

推荐使用patchwork包实现需求，该包专为ggplot2多图布局设计，默认会自动对齐所有子图的灰色绘图面板，同时自动适配不同长度的轴标签，保证x轴标题处于同一水平线，无需手动计算边距。

完整示例代码 #

# 安装未安装的依赖包
# install.packages("ggplot2")
# install.packages("patchwork")

# 加载所需包
library(ggplot2)
library(patchwork)

# 示例数据
data <- data.frame(x = 1:10, y = rnorm(10))

# 标签定义
x_labels_short <- 1:10
x_labels_long <- 100001:100010

# 通用绘图设置
layers <- list(
    labs(x = "Plot title"),
    theme(
        axis.text.x = element_text(
            angle = 90,
            vjust = 0.5,
            hjust = 1
        )
    )
)

# 生成两个图
plot_a <- ggplot(data, aes(x, y)) +
    scale_x_continuous(breaks = 1:10, labels = x_labels_short) +
    layers

plot_b <- ggplot(data, aes(x, y)) +
    scale_x_continuous(breaks = 1:10, labels = x_labels_long) +
    layers

# 两列布局排列
plot_a + plot_b + plot_layout(ncol = 2)

原理解释 #

gridExtra::grid.arrange默认将每列的总宽度（包含绘图区、轴标签、边距）设为相同，因此轴标签更长的子图会自动压缩绘图区面积。而patchwork的布局逻辑优先保证所有子图的绘图面板尺寸一致，会自动调整各子图的边距来适配不同长度的轴标签，自然满足绘图区等大、x轴标题对齐的需求。

如果坚持要使用gridExtra体系实现，可以通过gtable组件手动统一两个ggplot grob的底部边距长度，操作复杂度更高，不如patchwork方案简洁。

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