如何重新排序ggplot2中的双因子柱状图？

核心原因 #

ggplot的position_dodge是按照fill变量的因子水平顺序来排列分组内柱子的，你之前的代码没有指定Rootstock的因子顺序，所以默认使用了字母序或数据首次出现的顺序，导致分组内排序不符合预期。

解决方案 #

方案1：自定义固定的Rootstock顺序 #

如果你希望所有Treatment分组内的Rootstock都按同一个固定顺序排列（比如指定特定优先级），可以提前将Rootstock转换为指定水平的因子：

# 设置Rootstock的固定因子顺序，替换成你需要的实际值
data$Rootstock <- factor(data$Rootstock, levels = c("RootstockA", "RootstockB", "RootstockC"))

# 提前处理Treatment的降序排列，避免绘图代码重复写reorder
data$Treatment <- reorder(data$Treatment, -data$mean)

# 简化后的绘图代码
ggplot(data, aes(x = Treatment, y = mean, fill = Rootstock)) +
  geom_col(position = position_dodge(width = 0.60), width = 0.5, colour = "black") +
  geom_errorbar(aes(ymin = mean - se, ymax = mean + se),
                width = 0.1, position = position_dodge(0.60))

方案2：按每个Treatment内的mean值降序排列Rootstock #

如果需要每个Treatment分组内的Rootstock柱子都按自身mean值从高到低排列，可以用dplyr分组处理因子顺序：

library(dplyr)

# 分组排序：每个Treatment内，按mean降序设置Rootstock的因子水平
data <- data %>%
  group_by(Treatment) %>%
  mutate(Rootstock = factor(Rootstock, levels = Rootstock[order(-mean)])) %>%
  ungroup()

# 处理Treatment的整体降序
data$Treatment <- reorder(data$Treatment, -data$mean)

# 绘图
ggplot(data, aes(x = Treatment, y = mean, fill = Rootstock)) +
  geom_col(position = position_dodge(width = 0.60), width = 0.5, colour = "black") +
  geom_errorbar(aes(ymin = mean - se, ymax = mean + se),
                width = 0.1, position = position_dodge(0.60))

代码优化说明 #

• 原代码中geom_col和geom_errorbar重复写了x=reorder(Treatment, -mean)，提前在数据框中把Treatment转换为排序后的因子，能让代码更简洁高效。
• geom_col的aes参数可以省略，因为顶层ggplot()已经指定了x、y和fill映射。

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