如何修剪ggplot2图表的X轴，去除数据范围外的空白区域

核心方案：在scale_x_date中设置limits与expand参数 #

你之前尝试的方向是对的，但需要把范围限制和轴扩展设置结合起来，直接在scale_x_date里配置，就能让图表严格匹配1999-2021的数据范围，彻底去掉前后空白。

修改后的完整代码如下：

library(ggplot2)
library(scales) # 需加载scales包调用date_format

xcfoodtotal$date <- as.Date(xcfoodtotal$date)
p <- ggplot(data = xcfoodtotal, aes(x=date, y=consumption)) +
  geom_line(color="turquoise4", size=1) +
  geom_smooth(method=lm, se=TRUE, linetype = "dashed", col="blue", size=0.5) +
  theme_bw() + 
  labs(x="", y="kg/Capita") + 
  theme(plot.title = element_text(hjust=0.5, size=15, face="bold"), 
        axis.text.x=element_text(angle=60, hjust=1, face = "bold"),
        axis.text.y=element_text(hjust=1, face = "bold"), 
        text = element_text(size = 16, family="Helvetica"))

# 关键修改：在scale_x_date内配置范围与扩展参数
p + scale_x_date(
  date_breaks = "1 year", 
  labels = date_format("%Y"),
  limits = c(as.Date('1999-01-01'), as.Date('2021-12-31')), # 精准匹配数据时间范围
  expand = c(0, 0) # 关闭轴两端默认的空白扩展
)

之前方法失效的原因 #

• scale_x_discrete()：你的x轴是连续日期类型，用离散型轴会导致解析错误，完全不适用。
• coord_cartesian()：这个函数仅用于放大/缩小现有图表区域，不会改变轴的显示范围，因此空白区域依然存在。
• 单独设置limits未加expand：ggplot默认会给轴两端添加空白空间，即便设置了范围，这个扩展空间仍会显示1998/2023的空白，必须用expand=c(0,0)关闭。

灵活优化提示 #

如果你的数据起始/结束日期不是精确的年初年末，可以直接用数据的极值自动匹配范围，更省心：

limits = c(min(xcfoodtotal$date), max(xcfoodtotal$date))

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