多变量汇总后，如何基于计数重新排序带填充变量的ggplot2条形图

嘿，很高兴你已经搞定了单变量计数排序的条形图！针对你现在的需求——按多个变量汇总数据后添加填充变量，同时基于计数合理排序条形图，我来给你一步步拆解实现方法：

核心思路 #

我们需要先按主类别+填充类别分组汇总计数，同时计算每个主类别的总计数（用来做排序依据），最后用reorder()函数基于总计数对主类别重新排序，再绘制带填充的条形图。

完整代码示例 #

# 加载需要的包
library(magrittr)
library(dplyr)
library(ggplot2)

# 将分类变量转换为因子
mtcars$gear <- as.factor(mtcars$gear)
mtcars$cyl <- as.factor(mtcars$cyl)

# 多变量汇总：按gear和cyl分组计数，同时计算每个gear的总计数
summary_df <- mtcars %>%
  group_by(gear, cyl) %>%
  summarize(count = n(), .groups = "drop") %>%  # 得到每个gear+cyl组合的计数
  group_by(gear) %>%
  mutate(total_count = sum(count)) %>%  # 计算每个gear的总计数，用于排序
  ungroup()

# 绘制带填充且按总计数排序的条形图
ggplot(summary_df, aes(x = reorder(gear, total_count), y = count, fill = cyl)) +
  geom_bar(stat = "identity") +  # 堆叠条形图，若要并列用position = "dodge"
  coord_flip() +  # 翻转坐标轴，让条形横向显示
  labs(x = "Gear", y = "Count", fill = "Cylinders") +
  theme_minimal()

关键细节说明 #

1. 排序逻辑：这里用reorder(gear, total_count)让gear按总计数从小到大排序，如果想要从大到小，只需要改成reorder(gear, -total_count)即可。
2. 填充与条形样式：默认是堆叠条形图，如果需要并列显示不同cyl的条形，只需要给geom_bar()加上position = "dodge"参数。
3. 自定义排序依据：如果你不想按总计数排序，而是想按某个特定子类别（比如cyl=4的计数）排序，可以先筛选出对应数据，再把排序字段换成该子类别计数即可。

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