如何为ggplot2中facet_wrap生成的子图设置自定义x轴标签？

方案1：使用ggh4x包（推荐） #

该方案可直接单独修改每个分面的x轴标题，完全保留原有x轴刻度配置，是最贴合需求的实现方式。

• 加载依赖包

library(ggplot2)
library(ggh4x)

• 构造示例数据（可替换为你自己的实际数据）

set.seed(123)
# 构造26个分组的直方图数据，分面变量为group，取值为A-Z
df <- data.frame(
  group = rep(LETTERS[1:26], each = 100),
  value = rnorm(26 * 100)
)
# 按分面顺序准备26个自定义x轴标签，顺序和分面变量的水平顺序保持一致
custom_x_labs <- paste0("自定义标签_", LETTERS[1:26])

• 绘图代码

ggplot(df, aes(x = value)) +
  geom_histogram(bins = 10, fill = "skyblue", color = "black") +
  # 调整为你实际需要的分面行列布局
  facet_wrap(~group, nrow = 5, ncol = 6) +
  # 为每个分面单独设置x轴标签，不修改原有刻度
  facetted_pos_scales(
    x = lapply(custom_x_labs, function(lab) {
      # 若x轴为离散变量，替换为scale_x_discrete即可
      scale_x_continuous(name = lab)
    })
  ) +
  theme_bw()

方案2：原生ggplot2实现（无额外依赖） #

该方案通过调整分面strip的位置和样式模拟自定义x轴标签，不需要安装第三方包。

# 将自定义标签和分面变量绑定，分面标题换行后第二行即为自定义x轴标签
df$group <- factor(
  df$group,
  levels = LETTERS[1:26],
  # 不需要保留原分面编号的话，直接设置labels = custom_x_labs即可
  labels = paste0(LETTERS[1:26], "\n", custom_x_labs)
)

ggplot(df, aes(x = value)) +
  geom_histogram(bins = 10, fill = "skyblue", color = "black") +
  # 将分面strip放置在x轴下方
  facet_wrap(~group, nrow = 5, ncol = 6, strip.position = "bottom") +
  theme_bw() +
  theme(
    axis.title.x = element_blank(), # 隐藏全局统一的x轴标题
    strip.background = element_blank(), # 去掉strip的默认背景，伪装成轴标签
    strip.placement = "outside" # 将strip放在x轴刻度下方，和原生轴标签位置一致
  )

内容的提问来源于stack exchange，提问作者Jordan E.