ggplot facet_wrap绘图自定义X轴标签：仅显示有数据时段的X轴标签

嘿，我明白你想要的效果——只在有数据的时段显示X轴标签，避免那些空白时段的标签占位置对吧？我看了你现在的代码，用了as.factor(date)做X轴，这会把所有日期都当成因子水平显示出来，哪怕对应时段没数据。下面给你几个实用的解决办法，适配你用facet_wrap的场景：

方法1：用日期类型替代因子，全局设置有效日期为X轴刻度 #

首先建议把date转换成标准日期格式（如果还没转的话），这样比因子更容易处理时间刻度：

# 先把date转为日期格式（根据你的实际日期格式调整，比如"%Y-%m-%d"）
expanded_data$date <- as.Date(expanded_data$date, format = "%Y-%m-%d")

# 提取所有有数据的唯一日期（替换your_value_column为你实际的数值列，用来判断是否有数据）
valid_dates <- unique(expanded_data$date[!is.na(expanded_data$your_value_column)])

然后修改你的ggplot代码，用scale_x_date指定只显示有效日期的刻度：

ggplot(expanded_data, aes(x = date)) +
  # 注意：这里的xmin/xmax要改成对应的日期格式，比如as.Date("2020-01-01")
  geom_rect(data = expanded_data %>% filter(loc == "M2"),
            aes(xmin = as.Date("你的起始日期1"), xmax = as.Date("你的结束日期1"), 
                ymin = -Inf, ymax = Inf),
            fill = "gray90", alpha = 0.3, inherit.aes = FALSE) +
  geom_rect(data = expanded_data %>% filter(loc == "M2"),
            aes(xmin = as.Date("你的起始日期2"), xmax = as.Date("你的结束日期2"), 
                ymin = -Inf, ymax = Inf),
            fill = "gray90", alpha = 0.3, inherit.aes = FALSE) +
  geom_rect(data = expanded_data %>% filter(loc == "M1"),
            aes(xmin = as.Date("你的起始日期3"), xmax = as.Date("你的结束日期3"), 
                ymin = -Inf, ymax = Inf),
            fill = "gray90", alpha = 0.3, inherit.aes = FALSE) +
  geom_rect(data = expanded_data %>% filter(loc == "Fram"),
            aes(xmin = as.Date("你的起始日期4"), xmax = as.Date("你的结束日期4"), 
                ymin = -Inf, ymax = Inf),
            fill = "gray90", alpha = 0.3, inherit.aes = FALSE) +
  # 这里加上你的其他图层，比如geom_line/geom_point等
  # 设置X轴仅显示有数据的日期，标签格式可以自定义（比如"%Y-%m-%d"）
  scale_x_date(breaks = valid_dates, labels = scales::date_format("%Y-%m-%d")) +
  facet_wrap(~loc) +
  # 可选：旋转X轴标签避免重叠
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

方法2：分面自定义X轴刻度（每个分面显示各自的有效日期） #

如果不同分面（比如不同loc）的有数据时段不一样，想要每个分面单独显示自己的有效日期标签，可以用ggh4x包的facetted_pos_scales功能：

首先安装并加载包：

install.packages("ggh4x")
library(ggh4x)

然后先按分面分组提取每个组的有效日期：

# 按loc分组，获取每个组有数据的唯一日期
facet_breaks <- expanded_data %>%
  group_by(loc) %>%
  filter(!is.na(expanded_data$your_value_column)) %>% # 过滤有数据的行
  summarise(breaks = list(unique(date)))

接着修改ggplot代码，给每个分面单独设置X轴刻度：

ggplot(expanded_data, aes(x = date)) +
  # 保留你的geom_rect图层（记得把xmin/xmax改成日期格式）
  geom_rect(data = expanded_data %>% filter(loc == "M2"),
            aes(xmin = as.Date("你的起始日期1"), xmax = as.Date("你的结束日期1"), 
                ymin = -Inf, ymax = Inf),
            fill = "gray90", alpha = 0.3, inherit.aes = FALSE) +
  # 其他geom_rect图层...
  # 你的其他绘图图层（比如geom_point/geom_line）
  facet_wrap(~loc) +
  # 给每个分面自定义X轴刻度
  facetted_pos_scales(
    x = purrr::map(facet_breaks$loc, function(loc_name) {
      loc_name ~ scale_x_date(
        breaks = facet_breaks$breaks[[which(facet_breaks$loc == loc_name)]],
        labels = scales::date_format("%Y-%m-%d")
      )
    })
  ) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

方法3：如果坚持使用因子作为X轴 #

如果你一定要用因子类型的X轴，可以调整因子的水平，只保留有数据的日期：

# 提取有数据的日期，作为因子的水平
valid_dates <- unique(expanded_data$date[!is.na(expanded_data$your_value_column)])
expanded_data$date_factor <- factor(expanded_data$date, levels = valid_dates)

ggplot(expanded_data, aes(x = date_factor)) +
  # 注意：这里的xmin/xmax要对应因子的位置（用which()获取水平的索引，加减0.5是为了让矩形对齐因子刻度）
  geom_rect(data = expanded_data %>% filter(loc == "M2"),
            aes(xmin = which(levels(expanded_data$date_factor) == "你的起始日期1") - 0.5,
                xmax = which(levels(expanded_data$date_factor) == "你的结束日期1") + 0.5,
                ymin = -Inf, ymax = Inf),
            fill = "gray90", alpha = 0.3, inherit.aes = FALSE) +
  # 其他geom_rect图层同理调整xmin/xmax
  # 你的其他绘图图层
  facet_wrap(~loc) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

备注：内容来源于stack exchange，提问作者Lucat