分面堆叠面积图X轴标注问题：统一显示1993-2016年份范围

你遇到的核心问题是：用facet_wrap(~ measure, scales = "free_x")时，ggplot会根据每个分面的现有数据自动缩放X轴，导致没有完整年份数据的分面（比如C、D）无法显示1993-2016的完整时间范围。要解决这个问题，我们可以从两个方向入手：要么强制固定所有分面的X轴范围，要么补全缺失的年份数据，让每个分面都包含完整的时间序列。

方法一：强制固定X轴范围（快速解决） #

如果不需要在空白年份显示面积，只是希望所有分面的X轴都显示1993-2016的区间，可以直接去掉scales="free_x"，并用scale_x_continuous固定X轴的范围：

library(ggplot2)

ggplot(df, aes(x = Year, y = value, fill = type)) +
  geom_area() +
  facet_wrap(~ measure) + # 默认scales="fixed"，所有分面共享同一坐标轴
  scale_x_continuous(
    limits = c(1993, 2016),
    breaks = seq(1993, 2016, by = 3) # 可根据需求调整刻度间隔，避免过于拥挤
  )

这样所有分面的X轴都会强制显示1993到2016的区间，即使某个分面只有部分年份的数据，X轴范围也不会收缩。

方法二：补全缺失的年份数据（更严谨的时间序列展示） #

如果希望每个分面都能呈现完整的时间序列结构（空白年份显示为无面积的状态），可以先补全数据框，生成所有measure和1993-2016年份的组合，缺失的value用NA或0填充：

library(ggplot2)
library(dplyr)
library(tidyr)

# 补全所有measure与年份的组合，缺失value填充为NA（也可以填0，根据需求选择）
df_complete <- df %>%
  complete(
    measure,
    Year = seq(1993, 2016, by = 1),
    fill = list(value = NA)
  )

# 绘制堆叠面积图
ggplot(df_complete, aes(x = Year, y = value, fill = type)) +
  geom_area() +
  facet_wrap(~ measure) +
  scale_x_continuous(
    limits = c(1993, 2016),
    breaks = seq(1993, 2016, by = 3)
  )

小提示： #

• 如果选择用fill = list(value = 0)，空白年份的面积会显示为0，堆叠面积图在这些年份会呈现底部的空白；用NA的话，geom_area会自动跳过这些点，只绘制有数据的部分，但X轴依然保持完整范围。
• 因为你的Year是数值型，所以用scale_x_continuous来设置坐标轴；如果后续需要把年份当作分类变量处理，可以先将Year转换为因子类型，再用scale_x_discrete调整。

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