ggplot分面内条形降序排列并固定other类条至底部的实现方法

核心逻辑 #

• 先完成分面内排名、合并other的预处理，避免排序逻辑被合并操作干扰
• 重排序时给other类别单独设置最低排序权重，不使用实际统计值参与排序，避免other因数值过高跑到前列

具体实现步骤 #

1. 数据预处理：分组统计并合并other类别 #

首先按你的分面维度（示例为年代era）、分类维度（示例为名称name）统计数值，再合并每个分面内排名15以外的条目为other：

library(tidyverse)
library(tidytext)

# 示例数据结构说明：df为原始统计数据集
# era：分面用的年代列，name：条形对应的名称列，value：条形高度对应的数值列
processed_df <- df %>%
  # 先按分面、名称分组聚合，保证每个名称在分面内唯一
  group_by(era, name) %>%
  summarise(value = sum(value), .groups = "drop") %>%
  # 每个分面内按数值降序排列
  group_by(era) %>%
  arrange(desc(value), .by_group = TRUE) %>%
  # 标记前15名，其余统一为other
  mutate(rank = row_number(),
         adjusted_name = ifelse(rank <= 15, name, "other")) %>%
  # 聚合同一分面内的other合计值
  group_by(era, adjusted_name) %>%
  summarise(value = sum(value), .groups = "drop")

2. 构造绑定分面的排序因子 #

给other单独设置最低排序权重，再配合reorder_within()生成分面内排序的因子列：

plot_df <- processed_df %>%
  group_by(era) %>%
  # 给other设置极小排序权重，保证始终排在末尾
  mutate(sort_weight = ifelse(adjusted_name == "other", -Inf, value)) %>%
  ungroup() %>%
  # 用自定义的权重值做分面内降序排序
  mutate(sorted_name = reorder_within(adjusted_name, sort_weight, era, fun = desc))

3. 绘制分面图 #

绘图时开启分面的y轴自由缩放，配合scale_y_reordered()生效排序规则：

ggplot(plot_df, aes(x = value, y = sorted_name)) +
  geom_col() +
  facet_wrap(vars(era), scales = "free_y") +
  scale_y_reordered() +
  labs(y = "分类名称")

原尝试失败原因说明 #

• 第一次尝试合并other后直接用统计值排序：other的合计数值通常远高于长尾单个条目，会被默认排在前列
• 第二次尝试手动调整因子水平：reorder_within()生成的因子水平会覆盖手动调整结果，且手动调整未绑定分面维度，无法在每个分面内单独生效

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