如何按指定版本的value值排序ggplot分组geom_bar的左右顺序？

要实现按version = one的value值从高到低排列X轴分组（baz、foo、bar），核心是把X轴对应的x列转换成自定义顺序的因子——ggplot会优先遵循因子的levels顺序，而不是默认的字母排序。下面是具体的修改方案：

修改后的完整R脚本 #

library(ggplot2)

# 读取数据
data <- read.csv(text="x,value,version
foo,10,one
foo,12,two
bar,8,one
bar,7,two
baz,11,one
baz,14,two", header=TRUE)

# 1. 提取version为one的行，按value降序得到x的目标顺序
# base R写法（无需额外包）
x_order <- with(data[data$version == "one", ], x[order(-value)])

# 2. 将x列转换为因子，指定levels为目标顺序
data$x <- factor(data$x, levels = x_order, ordered = TRUE)

# 3. 绘图（优化：ggplot aes里直接用列名即可，不用data$前缀）
png(filename="so.png")
ggplot(data, aes(x = x, y = value, fill = version)) +
  geom_bar(stat="identity", position="dodge") +
  scale_fill_brewer(palette="Set1") +
  labs(x = "x", y="value") +
  guides(fill=guide_legend(title="version"))
dev.off()

关键步骤解释 #

• 获取目标顺序：通过data$version == "one"筛选出对应行，再用order(-value)按value降序排序，最终提取出x的顺序为baz, foo, bar。
• 转换为因子：把原本字符型的x列转为因子，并用levels = x_order指定排序规则，这样ggplot绘图时就会严格按照这个顺序渲染X轴，不会再用默认的字母排序。
• 小优化：原脚本里aes(data$x, data$value)的写法不够规范，直接用列名x, value更贴合ggplot的语法逻辑。

这样生成的柱状图X轴就会按照baz → foo → bar的顺序排列，完全匹配你的需求啦。

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