R ggforce分页堆叠柱状图：避免柱形拉伸、消除空年间隙的实现

问题根源 #

原写法存在两个底层逻辑问题，直接导致不符合需求：

• year作为连续数值型变量映射到x轴时，坐标计算会按照年份的实际数值跨度生成位置，因此不同年份间的无数据区间会被保留为空白占位
• 原生的facet_wrap_paginate强制给每个分面分配等宽的绘图区域，不区分每个分面内包含的柱子数量，因此单根柱子的实际宽度会被拉伸或压缩，无法保持一致

具体实现步骤 #

1. 数据预处理：消除连续轴的空年份间隙 #

将每个国家下的年份从数值型转为分类型因子，让x轴不再按照真实年份的数值跨度排布，仅对存在数据的年份设置独立的分类位置：

library(dplyr)
d <- d %>% 
  group_by(country_code_reordered) %>% 
  # 按国家分组转年份为因子，自动匹配每个国家的实际有数据年份
  mutate(year = factor(year)) %>% 
  ungroup()

这一步完成后，x轴自然不会出现无数据年份的占位空隙。

2. 替换分面逻辑：实现分面宽度自适应、柱宽恒定 #

原生facet_wrap_paginate的等宽分面机制无法适配不同的柱子数量，需要改用支持自定义分面宽度的ggh4x::facet_manual，按照每个国家对应的年份（柱子）数量分配分面宽度，保证单柱宽度统一：

• 先计算每个国家的有效年份数，作为对应分面的宽度比例（单柱宽度固定时，分面总宽度和柱子数量成正比）
• 在geom_bar中显式指定固定的柱宽，避免分面对柱子尺寸的自动缩放
• 保留和原代码一致的分页逻辑，切换页码时仅需重新计算对应页面的分面宽度比例即可

示例代码（以第1页4个分面为例）：

# 定义当前页包含的国家列表，和原facet_wrap_paginate(page=1)的分面顺序一致
page_countries <- c("AUS", "AUT", "BEL", "CAN")

# 计算每个国家的有效年份数，作为分面宽度的比例
width_ratios <- d %>% 
  filter(country_code_reordered %in% page_countries) %>% 
  distinct(country_code_reordered, year) %>% 
  count(country_code_reordered, name = "bar_count") %>% 
  # 按照分面顺序匹配宽度
  arrange(factor(country_code_reordered, levels = page_countries)) %>% 
  pull(bar_count)

# 绘图
library(ggplot2)
library(ggh4x)

ggplot(d %>% filter(country_code_reordered %in% page_countries), 
       aes(fill = variable, y = value, x = year)) + 
  scale_fill_brewer(name = "Fruits", 
                    labels = c("pears", "Other", "kiwi", "bananas", "apples"), 
                    guide = guide_legend(reverse = TRUE)) +
  # 显式设置固定柱宽，保证所有分面柱形尺寸一致
  geom_bar(position = "fill", stat = "identity", width = 0.8) + 
  labs(x = "Country code", y = "Contribution", title = NULL) + 
  facet_manual(
    vars(country_code_reordered), 
    nrow = 1, 
    ncol = 4, 
    widths = width_ratios, # 按柱子数量分配分面宽度
    scales = "free_x"
  )

效果匹配验证 #

调整完成后即可完全匹配需求：

• 所有分面内的柱形因为固定的width参数、分类轴等间距排布，实际宽度完全一致
• 分面总宽度随该国家的年份数量自适应变化，柱子多的分面占更宽的绘图区域
• 分类轴不会预留无数据年份的占位，只有两个离散年份的国家不会出现中间空白间隙

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