如何在ggplot2的facet_wrap中仅保留最后子图的X轴日期标签？

问题 #

我在3个站点的2个不同时段开展了测量工作，希望使用ggplot2的facet_wrap功能展示结果，设置为2列布局（第一行对应第一个时段，第二行对应第二个时段），每行对应一个站点。通过设置scales="free_x"实现了各子图仅显示对应日期，但现在需要删除前两个子图的X轴日期标签，仅保留最后一个子图的。

当前绘图代码如下：

test_data$date <- as.Date(test_data$date )

Boxes <- ggplot(test_data, aes(date, number_bats)) + 
  geom_col(aes(date,number_bats)) +
  facet_wrap(~Box, ncol = 2, scales = "free_x")

print(Boxes)

解决方案 #

方法一：使用ggh4x包（推荐，操作简便） #

ggh4x是ggplot2的扩展包，其中的facet_wrap2函数支持精准指定哪些面板显示轴标签，步骤如下：

1. 安装并加载包：

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

2. 修改绘图代码：

test_data$date <- as.Date(test_data$date )

Boxes <- ggplot(test_data, aes(date, number_bats)) + 
  geom_col() + # 全局aes已声明date，无需在geom_col中重复
  facet_wrap2(~Box, ncol = 2, scales = "free_x",
              axes = "x",  # 指定控制X轴
              only = 3)    # 仅第3个面板（最后一个子图）显示X轴标签

print(Boxes)

方法二：纯ggplot2实现（无需额外包） #

利用theme中的after_stat(panel)获取面板索引，通过条件判断隐藏前两个面板的X轴标签和刻度：

library(ggplot2)

test_data$date <- as.Date(test_data$date )

# 计算面板总数，确保和facet_wrap的排序一致
panel_count <- length(unique(test_data$Box))

Boxes <- ggplot(test_data, aes(date, number_bats)) + 
  geom_col() +
  facet_wrap(~Box, ncol = 2, scales = "free_x") +
  theme(
    # 仅最后一个面板显示X轴文字，其余设为透明隐藏
    axis.text.x = element_text(
      color = ifelse(after_stat(panel) == panel_count, "black", "transparent")
    ),
    # 同步控制X轴刻度线，仅最后一个面板显示
    axis.ticks.x = element_line(
      color = ifelse(after_stat(panel) == panel_count, "black", "transparent")
    )
  )

print(Boxes)

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