如何让ggplot基于fill参数中单一分组重排geom_bar的X轴？

我刚好遇到过类似的需求，这里有两种简洁的实现方式，都不需要硬编码factor的levels参数，完全让ggplot基于指定分组的数据自动排序：

方法一：利用cur_level()动态匹配分组值 #

这种方法直接在fct_reorder的自定义函数里，针对每个rsk水平提取对应alwaysFirst分组的prop值作为排序依据：

dat <- structure(list(group = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c("alwaysFirst", "last"), class = "factor"), rsk = structure(c(3L,1L, 2L, 4L, 3L, 1L, 2L, 4L), .Label = c("beginning", "middle", "startsWithS", "zed"), class = "factor"), prop = c(0.47, 0.38, 0.15, 0.54, 0.14, 0.78, 0.64, 0.36)), class = "data.frame", row.names = c(NA, -8L))

library(ggplot2)
library(dplyr)
library(forcats)

dat %>% 
  ggplot(aes(
    x = rsk %>% fct_reorder(
      prop, 
      .fun = function(x) {
        # 提取当前rsk水平对应alwaysFirst分组的prop值
        dat$prop[dat$group == "alwaysFirst" & dat$rsk == cur_level()]
      },
      .desc = TRUE
    ),
    y = prop, 
    fill = group
  )) +
  geom_bar(stat = "identity", position = "dodge")

方法二：提前构建排序映射向量 #

先从数据中提取alwaysFirst分组的prop值并与rsk水平绑定，再传入fct_reorder，逻辑更直观：

# 构建rsk水平到alwaysFirst分组prop值的映射向量
order_map <- dat$prop[dat$group == "alwaysFirst"]
names(order_map) <- dat$rsk[dat$group == "alwaysFirst"]

dat %>% 
  ggplot(aes(
    x = rsk %>% fct_reorder(order_map[as.character(.)], .desc = TRUE),
    y = prop, 
    fill = group
  )) +
  geom_bar(stat = "identity", position = "dodge")

效果说明 #

两种方法都会让X轴的rsk按alwaysFirst分组的prop值降序排列，最终顺序为：zed（0.54）→ startsWithS（0.47）→ beginning（0.38）→ middle（0.15），完全符合你的需求，且所有排序逻辑都是基于数据自动推导，不需要手动指定levels。

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