R语言ggplot2绘制时间序列时设置连续x轴展示缺失年份

当前x轴挤在一起、缺失区间无空隙的核心原因是：原始数据的year列是字符串类型，ggplot会将这类值识别为离散分类轴，仅对数据集中实际存在的年份分配等宽位置——无论两个已知年份在真实时间上间隔多久，只要数据集没有中间条目，相邻的年份就会被紧紧排布在一起，自然无法体现1996-1998的3年空洞。

• 预处理环节先转换数据类型、补全连续空行
  把字符型的年份转成可计算间隔的数值类型，再按站点分组补全1978-2020全时段的连续年份条目，缺失观测的位置自动留空值，103个站点可以批量处理，不需要逐站整理。
• 调整x轴的坐标逻辑
  改用连续数值坐标轴的排布规则，让ggplot按照年份的真实数值差计算点位位置，1995年和1999年之间就会自动空出对应3年的宽度，不再紧密相邻。
• 保留折线的NA中断逻辑
  折线绘制时碰到空值会自动断开，不会硬跨缺失区间连成直线，直观体现数据空洞。

library(tidyverse)
# 数据预处理
all_y_means <- all_y_means %>%
  # 字符型年份转数值类型
  mutate(year = as.numeric(year)) %>%
  # 按站点分组，补全1978-2020所有连续年份的空行
  group_by(station) %>%
  complete(year = full_seq(c(1978, 2020), period = 1)) %>%
  ungroup()

# 绘图代码
py <- all_y_means %>%
  ggplot(aes(x = year, y = yearly_mean, group = station)) +
  geom_line(aes(color = station)) +
  # 配置连续x轴，可按需修改刻度间隔
  scale_x_continuous(
    breaks = seq(1978, 2020, by = 5)
  ) +
  # 保留原有主题设置
  theme(
    axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1),
    legend.position = "none"
  )

• x轴按真实年份的间隔排布，1995与1999刻度之间会留出3年宽度的空白，不再紧密相邻
• 补入的1996-1998年条目无观测值，折线会在1995年点位后中断，直到1999年点位才重新连接，清晰展示缺失区间
• 全流程适配多站点数据的批量处理逻辑，不需要逐站调整代码

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