如何用facet_manual自定义标签，仅在顶部显示Group1/Group2

以下是基于ggplot2和ggh4x的直接解决方法，无需拼接图表：

方法1：自定义labeller函数，仅保留每组首个标签 #

通过自定义标签函数，让每个分组（Group1/Group2）仅在第一个分面上显示标签，其余分面标签设为空，适配任意分面布局顺序。

示例代码 #

library(ggplot2)
library(ggh4x)

# 构造示例数据
set.seed(123)
df <- expand.grid(
  Group1 = c("A", "B"),
  Group2 = c("X", "Y"),
  Category = c("Cat1", "Cat2", "Cat3"),
  stringsAsFactors = FALSE
)
df$Value <- sample(1:10, nrow(df), replace = TRUE)

# 自定义标签函数：每组仅保留第一个标签，其余置空
custom_labeller <- function(labels) {
  labels$Group1 <- ave(labels$Group1, labels$Group1, 
                       FUN = function(x) c(x[1], rep("", length(x)-1)))
  labels$Group2 <- ave(labels$Group2, labels$Group2, 
                       FUN = function(x) c(x[1], rep("", length(x)-1)))
  return(labels)
}

# 绘图
ggplot(df, aes(x = Category, y = Value, fill = Category)) +
  geom_col() +
  facet_manual(vars(Group1, Group2), 
               design = "
               AA
               BB
               ",
               labeller = custom_labeller) +
  theme(strip.text = element_text(hjust = 0)) # 左对齐标签，避免空标签占位偏移

方法2：使用strip_nested合并重复上层标签 #

利用ggh4x的strip_nested功能，让上层分组标签横跨所属分面，自动消除重复显示，同时支持标签堆叠布局。

示例代码 #

ggplot(df, aes(x = Category, y = Value, fill = Category)) +
  geom_col() +
  facet_manual(vars(Group1, Group2), 
               design = "
               AA
               BB
               ",
               labeller = label_stack(), # 堆叠Group1和Group2标签
               strip = strip_nested(bleed = TRUE)) # 让上层标签跨分面显示

该方法会将Group1的标签（如A）横跨所有属于A的分面，仅显示一次；若需要Group2也合并，只需调整分面设计或交换分组顺序即可。

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