ggplot2分面标签能否合并？R语言堆叠柱状图技术问询

当然可以合并分面标签啦！你的需求在堆叠柱状图的多维度分面场景里特别常见，默认的facet_grid确实没办法直接实现，但有个超简便的方法——用ggh4x包的增强分面功能，几乎不用改多少代码就能搞定。

方法一：用ggh4x的嵌套分面合并标签 #

ggh4x是专门为ggplot2做扩展的工具包，其中的facet_grid2支持嵌套分面的标签合并，完美匹配你的.~City+Car+Color三层列分面需求。

步骤如下：

1. 先安装并加载ggh4x包：

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

2. 修改你的原代码，把facet_grid替换成facet_grid2，并添加strip参数开启标签合并：

ggplot(example_data, aes(x = ID, y = amount, fill = Taxa)) +
  geom_bar(stat="identity", position = "fill") +
  # 核心改动：用facet_grid2+strip_nested实现标签合并
  facet_grid2(.~City+Car+Color, scales = "free_x", space = "free_x",
              strip = strip_nested(bleed = TRUE)) +
  labs(y = "Relative Abundance") +
  theme(axis.title.x = element_blank(), 
        axis.ticks = element_blank(), 
        axis.text.x = element_blank(), 
        legend.position = "none")

这里的strip_nested(bleed = TRUE)是关键：它会让上层的重复分面标签（比如同一个City下的所有子分面）自动合并成一个跨列的大标签，不会重复显示；同理，同一City下的相同Car标签也会合并，层级关系清晰又整洁。

如果需要调整标签样式（比如字体、颜色、间距），可以在strip_nested里额外加参数，比如：

strip = strip_nested(bleed = TRUE,
                     text_x = element_text(size = 11, face = "bold", color = "#333333"),
                     background_x = element_rect(fill = "#f5f5f5"))

方法二：手动处理数据生成合并标签（无需额外包） #

要是你不想安装新包，也可以手动预处理数据，让重复的上层标签只在第一个位置显示，其余留空。不过这个方法相对繁琐，适合简单场景：

1. 先按分面维度排序并生成合并后的标签：

library(dplyr)

example_data <- example_data %>%
  arrange(City, Car, Color) %>%
  # 每个City只在第一行显示名称，其余为空
  group_by(City) %>%
  mutate(City_label = ifelse(row_number() == 1, as.character(City), "")) %>%
  ungroup() %>%
  # 每个City下的Car只在第一行显示名称，其余为空
  group_by(City, Car) %>%
  mutate(Car_label = ifelse(row_number() == 1, as.character(Car), "")) %>%
  ungroup()

2. 用新的标签列做分面：

ggplot(example_data, aes(x = ID, y = amount, fill = Taxa)) +
  geom_bar(stat="identity", position = "fill") +
  facet_grid(.~City_label+Car_label+Color, scales = "free_x", space = "free_x") +
  labs(y = "Relative Abundance") +
  theme(axis.title.x = element_blank(), 
        axis.ticks = element_blank(), 
        axis.text.x = element_blank(), 
        legend.position = "none",
        # 调整标签左对齐，避免空标签占位置
        strip.text.x = element_text(hjust = 0))

这个方法需要手动处理数据，而且布局样式不如ggh4x规整，所以更推荐第一种方法哦。

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