R语言ggplot2中facet_wrap分图保持条形宽度一致的方法

问题说明 #

已实现分面条形图，子图内条形按sector_exp数值降序排列，但所有子图的条形宽度不一致，需要统一。

可行解决方案 #

方法：使用ggh4x包的facet_wrap2功能 #

ggh4x扩展了ggplot2的分面功能，能轻松实现固定条形宽度的需求，核心是通过space = "free_y"让面板高度随子图类别数量自动调整，从而保证条形宽度一致。

步骤1：安装并加载依赖包

library(tidyverse)
library(ggh4x) # 若未安装先运行：install.packages("ggh4x")

步骤2：数据预处理（保留原有排序逻辑）

dd2 <- sec_ms_tcf_plot |>
  # 生成国家-行业的唯一标识，用于排序
  mutate(category2 = factor(paste(member_state, sector_code))) |>
  # 按sector_exp降序重新排序，实现子图内条形从高到低排列
  mutate(category2 = reorder(category2, rank(-sector_exp)))

步骤3：绘制统一条形宽度的分面条形图

gpl <- ggplot(dd2, aes(y = category2, x = sector_exp/1e3)) +
  geom_bar(stat = "identity") +
  # 用facet_wrap2替代原生facet_wrap，space="free_y"自动适配面板高度
  facet_wrap2(. ~ member_state, scales = "free_y", nrow = 3, space = "free_y") +
  scale_y_discrete(labels = dd2$sector_code, breaks = dd2$category2) +
  xlab("Sector Expenditure (Mio \u20ac)") +
  ylab("Sector NACE Code")

ggsave("expenditure.png", gpl, width = 10, height = 13)

原理说明 #

facet_wrap2的space = "free_y"参数会根据每个子图中y轴类别的数量，自动调整对应面板的高度：类别越多的子图面板越高，类别越少的面板越矮，最终所有子图的条形宽度会保持一致。

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