求助：使用ggh4x在分面柱状图中实现X轴嵌套分组

你遇到的问题本质是分面后每个面板的X轴子集丢失了与Group的关联映射，导致guide_axis_nested()无法正确解析嵌套层级。以下是两种可行的修复方法：

方法1：给X轴变量绑定分组前缀 #

通过将Group与X轴离散值拼接成带分隔符的因子，让guide_axis_nested()能在分面面板中识别分组关系：

代码示例 #

library(ggplot2)
library(ggh4x)

# 构造模拟数据集（匹配你的数据结构）
set.seed(123)
df <- data.frame(
  facet_var = rep(c("Facet 1", "Facet 2"), each = 12),
  Group = rep(c("G1", "G1", "G2", "G2"), each = 6),
  X = rep(c("X1", "X2", "Y1", "Y2"), each = 3),
  Value = rnorm(24, 15, 3)
)

# 生成带分组信息的嵌套X轴因子
df$X_nested <- factor(paste(df$Group, df$X, sep = "|"),
                      levels = unique(paste(df$Group, df$X, sep = "|")))

# 绘制柱状图
ggplot(df, aes(X_nested, Value)) +
  geom_col(fill = "#3498db") +
  facet_wrap(~facet_var, scales = "free_x", space = "free_x") +
  scale_x_discrete(guide = guide_axis_nested(delim = "|")) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

该方法让每个X轴标签都携带分组归属，即便分面后面板只显示部分X值，guide_axis_nested()仍能识别分组并生成嵌套样式。

方法2：结合facet_nested实现层级分面+嵌套轴 #

如果facet_var和Group本身存在层级逻辑，可直接用ggh4x的facet_nested，同时保留X轴的嵌套分组：

代码示例 #

ggplot(df, aes(X, Value)) +
  geom_col(fill = "#e74c3c") +
  # 按facet_var -> Group的层级分面
  facet_nested(~facet_var + Group, scales = "free_x", space = "free_x") +
  scale_x_discrete(guide = guide_axis_nested()) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

这种方式会将Group作为分面的次级层级，同时X轴保持嵌套分组，视觉逻辑更清晰。

两种方法都能实现和无分面示例一致的X轴嵌套分组效果，可根据你的数据集结构选择适配方案。

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