如何在ggplot2的facet_wrap中按组对分类变量频数排序？

你的问题核心在于：reorder(clarity, n)是在分组内修改因子水平，但ggplot依赖全局因子集合进行渲染，facet_wrap拆分后，其他组的clarity排序会被全局因子水平限制，无法独立调整。

要实现每个子图的clarity按组内频数排序，需要给每个分组的clarity创建独立的因子水平，修正后的代码如下：

data(diamonds)
library(tidyverse)

diamonds %>% 
  group_by(cut) %>% 
  count(clarity, name = "count") %>% 
  # 创建带分组标识的唯一clarity变量，确保各组排序独立
  mutate(clarity_grouped = paste(cut, clarity, sep = "_"),
         # 按组内频数排序新变量
         clarity_grouped = fct_reorder(clarity_grouped, count)) %>% 
  ggplot(aes(x = count, y = clarity_grouped, fill = cut)) +
  geom_col(show.legend = FALSE) +
  facet_wrap(~cut, ncol = 2, scales = "free_y") +
  # 移除y轴标签的分组前缀，保留原clarity名称
  scale_y_discrete(labels = function(x) str_remove(x, "^.*_")) +
  labs(x = "频数", y = NULL) +
  theme_bw()

关键逻辑说明： #

• paste(cut, clarity, sep = "_")：将分组标识与clarity拼接成唯一值（如Fair_I1、Good_I1），让每个组的clarity水平完全独立，避免全局因子冲突。
• fct_reorder(clarity_grouped, count)：在分组内按频数对新变量排序，若想从高到低排序，可添加参数.desc = TRUE。
• scales = "free_y"：开启y轴自由缩放，每个子图仅显示当前组的clarity值，避免空标签干扰。
• scale_y_discrete的标签处理：去除拼接的分组前缀，保证y轴显示的是原始clarity名称，不影响图表可读性。

内容的提问来源于stack exchange，提问作者Abbey A.