如何调整ggplot中图例顺序使其与条形排列顺序匹配？

上述为使用R语言tidyverse包绘制分组条形图的代码，当前图例顺序与条形排列顺序不匹配，请问如何调整图例顺序，使其与条形顺序一致（即“Total”位于最上方，依次为A、B、C）？

核心思路是将grp列转换为有序因子，指定目标顺序，这样ggplot会自动沿用该顺序同步条形排列和图例展示。

修改后完整代码 #

library(tidyverse)

n <- 100
df <- data.frame(grp = sample(c("A", "B", "C", "Total"), size = n, replace = TRUE),
                 value = runif(n = n, min = 1, max = 5),
                 item = sample(c("Item1", "Item2", "Item3"), size = n, replace = TRUE))

df %>% 
  # 将grp转为有序因子，指定顺序为Total、A、B、C
  mutate(grp = factor(grp, levels = c("Total", "A", "B", "C"), ordered = TRUE)) %>%
  group_by(item, grp) %>%
  summarise(mean = mean(value), .groups = "drop") %>%  # 替代ungroup的更简洁写法
  
  ggplot(aes(x = item, group = grp, y = mean, fill = grp)) + 
  geom_col(position = 'dodge') +
  coord_flip()

关键说明 #

• factor(grp, levels = c("Total", "A", "B", "C"), ordered = TRUE)：通过levels参数直接定义分组的展示顺序，ordered = TRUE标记为有序因子，确保ggplot遵循该顺序排序。
• 这种方式会同时同步条形的排列顺序和图例的顺序，从根源上解决两者不匹配的问题，无需额外调整图例参数。
• 使用.groups = "drop"替代ungroup()是tidyverse的推荐写法，在summarise()中直接指定分组处理逻辑，代码更简洁。

备选方案（仅调整图例） #

如果不想修改原始数据，也可以在ggplot中分别指定group的顺序和图例的顺序：

df %>% 
  group_by(item, grp) %>%
  summarise(mean = mean(value), .groups = "drop") %>%
  ggplot(aes(x = item, 
             group = factor(grp, levels = c("Total", "A", "B", "C")), 
             y = mean, 
             fill = grp)) + 
  geom_col(position = 'dodge') +
  coord_flip() +
  scale_fill_discrete(limits = c("Total", "A", "B", "C"))

但这种方式需要重复指定顺序，不如修改数据因子的方式高效。

内容的提问来源于stack exchange，提问作者D. Studer