如何为ggplot绘图区域设置固定宽度以统一不同标签的图表？

当轴标签长度不同导致绘图区域尺寸不一致时，你可以用以下两种方法让两个图表的绘图区域完全一致：

方法1：借助cowplot包对齐图表 #

cowplot专门处理图表对齐问题，能轻松统一绘图区域尺寸：

# 安装并加载依赖包
install.packages("cowplot")
library(cowplot)
library(tidyverse)

# 原始数据
dat <- tibble(item=c("A very long item name with many words",
                     "Another extremely long item name with many words",
                     "Short item name",
                     "Short item name two"),
              y = c(2, 3, 5, 2),
              split = c(1, 1, 0, 0))

# 绘制两个基础图表
p_short <- dat %>%
  filter(split == 0) %>%
  ggplot(aes(x = item, y = y)) +
  geom_col() +
  coord_flip() +
  theme_cowplot()

p_long <- dat %>%
  filter(split == 1) %>%
  ggplot(aes(x = item, y = y)) +
  geom_col() +
  coord_flip() +
  theme_cowplot()

# 垂直对齐图表，锁定左侧轴区域宽度
aligned_plots <- align_plots(p_short, p_long, align = "v", axis = "l")
# 组合输出对齐后的图表
plot_grid(aligned_plots[[1]], aligned_plots[[2]], ncol = 1)

方法2：手动设置ggplot2主题参数 #

不想额外装包的话，直接通过主题参数固定轴标签宽度和绘图边距：

library(tidyverse)

dat <- tibble(item=c("A very long item name with many words",
                     "Another extremely long item name with many words",
                     "Short item name",
                     "Short item name two"),
              y = c(2, 3, 5, 2),
              split = c(1, 1, 0, 0))

# 定义统一主题：固定y轴标签宽度+统一边距
fixed_theme <- theme(
  axis.text.y = element_text(width = unit(8, "cm")), # 按最长标签的宽度设置
  plot.margin = margin(1, 1, 1, 1, "cm") # 调整边距让整体样式一致
)

# 短标签图表
dat %>%
  filter(split == 0) %>%
  ggplot(aes(x = item, y = y)) +
  geom_col() +
  coord_flip() +
  fixed_theme

# 长标签图表
dat %>%
  filter(split == 1) %>%
  ggplot(aes(x = item, y = y)) +
  geom_col() +
  coord_flip() +
  fixed_theme

说明：axis.text.y的width值可以根据实际最长标签的长度调整，确保短标签也占用相同宽度，这样绘图区域会被压缩到相同尺寸。plot.margin用来统一图表的外边距，让整体视觉效果一致。

内容的提问来源于stack exchange，提问作者D. Studer