如何在R的ggplot2多面板分面图中调整与移除面板轴标签

当你需要用facet_wrap绘制分面热图（无法用facet_grid，因为要保留独立的treatment标签），且仅想在最左侧面板保留y轴标签、边缘面板保留x轴标签时，最简便的方案是使用ggh4x包的facet_wrap2函数，它专门针对facet_wrap的轴显示逻辑做了优化，无需手动编写复杂的theme条件判断。

方法1：使用ggh4x包的facet_wrap2（推荐） #

步骤1：安装并加载包 #

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

步骤2：绘制分面热图 #

以模拟的协方差矩阵数据为例：

# 模拟协方差矩阵分面数据
set.seed(123)
dat <- expand.grid(
  var_x = paste0("Var", 1:5),
  var_y = paste0("Var", 1:5),
  treatment = paste0("Trt", 1:4)
)
dat$covar <- rnorm(nrow(dat))

# 绘制热图并设置分面轴显示
ggplot(dat, aes(var_x, var_y, fill = covar)) +
  geom_tile() +
  # 用facet_wrap2替代facet_wrap，指定axes参数控制边缘轴显示
  facet_wrap2(~treatment, ncol = 2, axes = "margins", strip.position = "top") +
  theme(
    # 隐藏全局轴标签
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
    # 可选：调整x轴文本角度，避免重叠
    axis.text.x = element_text(angle = 45, hjust = 1)
  )

参数说明：

• axes = "margins"：自动仅在分面的边缘面板显示对应轴标签（最左列显示y轴，最底行显示x轴）
• strip.position：控制分面标题（treatment标签）的位置，可设为"top"/"bottom"/"left"/"right"

这个方法无需手动计算分面位置，分面数量或排版变化时会自动适配，比手动调整theme更高效。

方法2：优化手动theme调整（无需额外包） #

如果不想引入新包，也可以通过在theme中利用颜色条件判断来实现，但需要手动计算分面的位置：

ggplot(dat, aes(var_x, var_y, fill = covar)) +
  geom_tile() +
  facet_wrap(~treatment, ncol = 2) +
  theme(
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
    # 仅最左列分面显示y轴文本（这里ncol=2，所以取第1、3个treatment）
    axis.text.y = element_text(
      color = ifelse(as.factor(dat$treatment) %in% levels(dat$treatment)[seq(1, nlevels(dat$treatment), by = 2)], 
                    "black", "transparent")
    ),
    # 仅最底行分面显示x轴文本（这里ncol=2，所以取第3、4个treatment）
    axis.text.x = element_text(
      color = ifelse(as.factor(dat$treatment) %in% levels(dat$treatment)[(nlevels(dat$treatment)-1):nlevels(dat$treatment)], 
                    "black", "transparent"),
      angle = 45, hjust = 1
    )
  )

这种方法需要根据分面的列数手动计算边缘分面的位置，当分面数量或排版变化时需要调整代码，灵活性不如ggh4x。

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