如何在R Markdown中对齐独立生成图表的条形起始位置？

问题现象 #

• 用R Markdown制作单页报告排布图表时，图表外边界可正常对齐，但基于不同数据集独立绘制的条形图，条形起始位置存在横向偏移
• 偏移核心原因：ggplot2默认根据每张图y轴类别标签的文本长度自动计算轴区域占宽，标签长度不同时，条形的左起始点就会出现错位
  

可用解决方法 #

方法1：patchwork 自动对齐（推荐） #

如果使用patchwork包做图表排版，直接开启轴收集对齐参数即可，不需要手动调试数值，适配性最好：

library(ggplot2)
library(patchwork)

# 按原有逻辑独立绘制两张图，存为对象p1、p2
p1 <- ggplot(数据集1, aes(x = 数值列, y = 类别列)) + geom_col()
p2 <- ggplot(数据集2, aes(x = 数值列, y = 类别列)) + geom_col()

# 排版时加axes = "collect"参数，自动统一所有子图的轴位置
p1 / p2 + plot_layout(axes = "collect")

方法2：统一固定绘图左边距 #

如果不用patchwork，直接在R Markdown里分块嵌图，可以给所有需要对齐的条形图设置完全相同的左侧绘图边距，预留足够空间容纳最长的y轴标签：

# 所有需要对齐的条形图都添加完全一致的主题边距配置
p1 <- p1 + theme(plot.margin = margin(l = 100)) # 数值根据实际标签长度调整，所有图保持一致
p2 <- p2 + theme(plot.margin = margin(l = 100))

方法3：统一y轴文本边距 #

也可以通过固定y轴文本的右侧内边距，强制所有图的轴标签占宽一致：

# 所有图添加相同的y轴文本配置
aligned_axis_theme <- theme(
  axis.text.y = element_text(hjust = 1, margin = margin(r = 8))
)
p1 <- p1 + aligned_axis_theme
p2 <- p2 + aligned_axis_theme

提示：如果是用cowplot、gridExtra等其他包排版图表，优先使用方法2或方法3，保证所有图的轴区域配置完全一致即可解决错位问题。

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