R ggplot2闪避分组柱状图如何实现组内按y值降序排列

提前按group和score排序数据框不生效的核心逻辑是：ggplot2绘制分组柱状图执行position_dodge()时，同组内柱子的排列顺序默认由fill映射变量（本例为country）的全局因子水平顺序决定，和数据框本身的行顺序没有关联，因此会出现仅个别组排序符合预期、其余组被country字段默认排序打乱的问题。

核心思路是为每条数据生成组内专属的排序标识，强制ggplot按照组内score降序规则排布柱子，不需要调整全局因子顺序：

• 先对数据按group分组，给组内条目按score降序生成位置序号
• 将该位置序号映射到ggplot的group美学参数，明确每个柱子的实际排布位置
• 统一调整dodge宽度保证柱子、文本标签完全对齐

完整可运行代码如下：

library(ggplot2)
library(dplyr)

data_scores <- data.frame(
  group = c(1, 1, 1, 2, 2, 2, 3, 3, 3), 
  country = c("U", "D", "M", "D", "U", "M", "D", "M", "U"), 
  score = c(10, 7, 3, 15, 12, 4, 9, 7, 5)
) %>%
  # 分组生成组内降序位置标签
  group_by(group) %>%
  mutate(order_in_group = row_number(desc(score))) %>%
  ungroup()

ggplot(data_scores, aes(x = factor(group), y = score, fill = country, group = order_in_group)) +
  geom_col(position = position_dodge(width = 0.9)) +
  geom_text(
    aes(label = country),
    position = position_dodge(width = 0.9), 
    angle = 90, 
    hjust = 1
  ) +
  # 按需自定义x轴标签，保持大组顺序为组1左、组2中、组3右
  scale_x_discrete(labels = c("1" = "组1", "2" = "组2", "3" = "组3"))

运行后效果满足要求：

• 三个大组顺序固定，组1在最左侧、组2在中间、组3在最右侧
• 每个大组内部的柱子严格按照score字段从高到低降序排列，不会再被country的默认排序规则打乱

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