ggplot2消除折线与Y轴间距时X轴文本丢失问题求助

核心问题出在你用scale_x_continuous()处理Date格式的X轴——Date类型本质是特殊的数值，但直接用连续型刻度会破坏日期的结构，导致轴标签失效。换成scale_x_date()就能解决，同时保留消除边距的设置。

修改后的完整代码：

# Plot SSI3 for URB
URB_SSI3 <- URB %>%  
  ggplot2::ggplot(aes(x = Date, y = SSI3, color = datasets)) + 
  geom_line(linewidth=0.3, linetype="solid") +
  scale_color_manual(name=NULL, 
                     breaks = c("Observed", "ERA5.Land", "GLDAS", "GLEAM"),
                     values = c("Orange", "Red", "purple", "black"),
                     labels = c("Observed", "ERA5-Land", "GLDAS", "GLEAM"))+
  scale_y_continuous(limits = c(-3, 3), breaks = -3:3) +
  # 关键修改：用scale_x_date处理日期轴
  scale_x_date(
    # 设置每2年一个刻度，取对应年份的1月1日
    breaks = seq(floor_date(min(URB$Date), "year"), 
                 floor_date(max(URB$Date), "year"), 
                 by = "2 years"),
    # 将日期格式化为年份文本
    labels = function(x) format(x, "%Y"),
    # 消除边距
    expand = c(0, 0)
  ) +
  ggtitle("URB-SSI3") +
  theme_bw() +
  theme(plot.title = element_text(hjust = 0.5),
        axis.text.x = element_text(colour = "black"),
        axis.text.y = element_text(colour = "black"),
        legend.background = element_blank(),
        legend.position = c(0.5, 0.1),
        legend.direction = "horizontal",
        legend.key = element_rect(fill = "transparent"),
        legend.key.width = unit(30, "pt")) +
  guides(fill="none")
URB_SSI3

关键修改说明：

• 用scale_x_date()替代scale_x_continuous()，专门处理Date类型的轴
• breaks参数用floor_date()生成每年起始日期，按2年间隔设置刻度，确保和原需求的年份间隔一致
• labels用format()把日期转成年份字符串，保证轴文本正确显示
• 保留expand = c(0, 0)，彻底消除折线与Y轴的间距

这样修改后，既能实现你要的消除边距效果，又不会丢失X轴的年份文本。

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