如何使用facet_grid拆分图表并移除分面中未使用的属性层级

要实现猫、犬分面各自只显示自身的属性层级，核心是让每个分面对应的数据子集仅保留自身的属性因子水平，再结合分面参数实现轴的独立显示。

步骤1：预处理数据 #

使用dplyr按类别分组，为每个组单独设置属性层级的因子水平，只保留该组实际存在的属性：

library(dplyr)
library(ggplot2)

# 示例数据（替换为你的实际数据）
sample_data <- data.frame(
  category = rep(c("猫", "犬"), each = 3),
  attribute = c("猫属性1", "猫属性2", "猫属性3", "犬属性1", "犬属性2", "犬属性3"),
  value = rnorm(6)
)

# 预处理：每个类别仅保留自身的属性因子水平
processed_data <- sample_data %>%
  group_by(category) %>%
  mutate(attribute = factor(attribute, levels = unique(attribute))) %>%
  ungroup()

步骤2：绘图并设置分面参数 #

使用facet_grid，设置scales="free_y"（若属性层级在y轴）和space="free_y"，让每个分面的轴自适应显示：

ggplot(processed_data, aes(x = value, y = attribute)) +
  geom_col() +
  facet_grid(category ~ ., scales = "free_y", space = "free_y")

关键说明 #

• 若你的属性层级在x轴，只需将scales="free_y"和space="free_y"改为scales="free_x"和space="free_x"。
• 预处理数据的目的是打破全局因子水平的限制，让每个分面仅识别自身组内的属性；scales="free_*"确保每个分面的轴只显示有数据的水平，space="free_*"让轴的长度适配内容。

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