R语言ggplot2绘图如何移除x轴无数据的多余年份刻度？

问题原因 #

你的Year列为数值型变量时，ggplot2默认将X轴识别为连续数值轴，会自动覆盖数值范围内的所有区间，即便没有对应观测值也会生成空缺刻度。

解决方案 #

方案1：将Year转为有序因子（推荐，完全移除无数据空白区间） #

该方案会让X轴变为离散轴，仅显示存在数据的年份，2011-2016的空白区间会被完全删除，两个有数据的时间段直接衔接。
首先处理Year列，再修改绘图代码：

# 将Year转为按年份升序排列的有序因子，避免X轴顺序错乱
df$Year <- factor(df$Year, levels = sort(unique(df$Year)), ordered = TRUE)

# 绘图时为每个geom_line添加group=1参数，保证折线可正常渲染
plot <- ggplot(df, aes(x=Year)) + 
  geom_line(aes(y=var1, group = 1), color = "black", size=1) + 
  geom_line(aes(y=var2, group = 1), color="red", size=1) + 
  geom_line(aes(y=var3, group = 1), color="green", size=1) + 
  geom_line(aes(y=var4, group = 1), color="yellow", size=1) + 
  geom_line(aes(y=var5, group = 1), color="blue", size=1) + 
  geom_line(aes(y=var6, group = 1), color="pink", size=1)

方案2：指定连续轴刻度（保留时间断层空白） #

如果需要保留2011-2016的空白间隔来体现时间断层，仅隐藏对应刻度，直接添加scale_x_continuous指定要显示的刻度即可：

plot <- ggplot(df, aes(x=Year)) + 
  geom_line(aes(y=var1), color = "black", size=1) + 
  geom_line(aes(y=var2), color="red", size=1) + 
  geom_line(aes(y=var3), color="green", size=1) + 
  geom_line(aes(y=var4), color="yellow", size=1) + 
  geom_line(aes(y=var5), color="blue", size=1) + 
  geom_line(aes(y=var6), color="pink", size=1) +
  # 仅显示数据中存在的年份刻度
  scale_x_continuous(breaks = unique(df$Year))

代码优化建议 #

你当前为每个变量单独写geom_line的写法较为冗余，建议将宽表转为长表绘图，代码更简洁还可自动生成图例：

library(tidyr)
# 宽表转长表
df_long <- pivot_longer(df, cols = starts_with("var"), names_to = "变量", values_to = "数值")

# 如需转离散轴先处理Year列
df_long$Year <- factor(df_long$Year, levels = sort(unique(df_long$Year)), ordered = TRUE)

# 绘图代码
plot <- ggplot(df_long, aes(x = Year, y = 数值, color = 变量, group = 变量)) +
  geom_line(size = 1) +
  # 匹配你原有配色
  scale_color_manual(values = c(
    "var1" = "black", "var2" = "red", "var3" = "green",
    "var4" = "yellow", "var5" = "blue", "var6" = "pink"
  ))

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