scale_x_date显示超出限制年份？ggplot绘图问题求助

你的问题是x轴年份出现了重叠（显示成“20001”实际是2000和2001的刻度挤在一起了），原因是scale_x_date按起始日期（2000-09-11）逐年生成刻度，这些刻度的年份标签在有限空间里重叠了。以下是几种修复方案：

方案1：强制刻度为每年1月1日 #

通过指定每年1月1日作为刻度点，确保标签不会重叠：

fig <- ggplot(df, aes(date, value, color = temp_type )) +
  geom_point() +
  scale_x_date(
    date_labels = "%Y", 
    limits = as.Date(c("2000-09-11", "2006-07-22")),
    breaks = seq(as.Date("2000-01-01"), as.Date("2006-01-01"), by = "year")
  ) +
  theme_few() + 
  labs(x = "Year", y = "Temperature (°C)")

fig

方案2：调整轴的扩展空间 #

给x轴两端增加一点空间，避免刻度挤在边缘：

fig <- ggplot(df, aes(date, value, color = temp_type )) +
  geom_point() +
  scale_x_date(
    date_breaks = "1 year", 
    date_labels = "%Y", 
    limits = as.Date(c("2000-09-11", "2006-07-22")),
    expand = expansion(mult = 0.05) # 两端各增加5%的空间
  ) +
  theme_few() + 
  labs(x = "Year", y = "Temperature (°C)")

fig

方案3：旋转x轴标签 #

如果空间还是不够，旋转标签避免重叠：

fig <- ggplot(df, aes(date, value, color = temp_type )) +
  geom_point() +
  scale_x_date(
    date_breaks = "1 year", 
    date_labels = "%Y", 
    limits = as.Date(c("2000-09-11", "2006-07-22"))
  ) +
  theme_few() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) + # 旋转45度并右对齐
  labs(x = "Year", y = "Temperature (°C)")

fig

测试后，方案1能最直接解决刻度重叠问题，让每个年份标签都清晰显示在对应位置。

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