R ggplot使用facet_wrap按年分面时日期过多显示异常的解决方案问询

你遇到的两类显示异常核心原因如下：

1. 使用scales="fixed"时所有分面共享2015-2017全量时间轴，导致单个分面仅能显示对应年份的窄范围数据，其余区域大量留白
2. 使用scales="free_x"时的异常来自两个问题：
   • scale_x_date中expand = c(0,-20)的负向扩展会裁剪边缘的轴标签和柱形
   • 全局定义的geom_rect仅对应2016年的日期范围，在其他年份分面中因超出x轴范围出现显示异常

可通过以下修改实现符合预期的效果：

# 前置依赖加载
library(lubridate)
library(ggplot2)

# 预处理数据，提前生成年份列避免分面计算错误
ALL$year <- year(ALL$Date)

# 构造灰色遮罩专用数据集，指定遮罩仅在2016年分面显示
rect_data <- data.frame(
  year = 2016,
  xmin = as.Date("2016-04-19"),
  xmax = as.Date("2016-09-16"),
  ymin = 0,
  ymax = 30
)

# 修正后绘图代码
ggplot(subset(ALL, Station=="STF" & Presence=="1"), aes(x=YrMn, fill = factor(Presence))) +
  geom_bar() +
  # 调整expand参数避免裁剪，直接内置月份格式无需自定义 formatter
  scale_x_date(date_breaks = "1 month", date_labels = "%m", expand = c(0.05,0))+
  facet_wrap(~year, nrow=1, scales = "free_x")+
  scale_fill_manual(values=c("#F8766D"), name="Daily Presence", labels=c("Yes") )+
  # 传入分面匹配的遮罩数据，关闭继承全局映射避免报错
  geom_rect(
    data = rect_data,
    aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax),
    fill = "light grey", alpha = .3,
    inherit.aes = FALSE
  )+
  ylim(0,30)+
  theme_classic()+
  theme(strip.placement = "outside",
        strip.background = element_blank(),
        panel.spacing=unit(0.1,"cm"))

关键修改说明 #

• 提前生成year列，避免分面时实时计算日期年份导致的轴范围匹配错误
• 将expand参数改为c(0.05,0)，既保留紧凑布局，又不会裁剪边缘的柱形和轴标签
• 单独构造rect_data数据集，指定灰色矩形仅属于2016年分面，其他年份分面不会出现异常的灰色区域
• 直接用date_labels = "%m"显示月份，和分面的年份标签搭配不会出现信息重复

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