R ggplot使用reorder函数遇相同值时标签颜色编码匹配错误

你遇到的匹配错误本质是：对names和color两个独立向量分别调用reorder()时，相同value对应的元素排序逻辑未绑定：reorder()处理同值的字符向量时，会基于向量本身的字符顺序做二次排序，names和color是完全不同的字符集合，排序后顺序自然错位，导致颜色和标签不匹配。

最稳妥的解决逻辑是：先在数据框内将x轴标签的因子顺序固定，再基于固定的因子顺序提取对应颜色，避免两次独立排序带来的错位问题，参考代码如下：

library(ggplot2)
# 原始示例数据
names <- c("a","albert","aline","d","francis")
value <- c(11,10,9,9,21)
color <- c("black","red","red","black","red")
df <- data.frame(names, value, color)

# 第一步：预先固定names列的因子顺序，和你需要的x轴排序完全一致
df$names <- reorder(df$names, df$value)
# 第二步：按已经固定的因子顺序提取对应颜色，100%和标签顺序匹配
axis_colors <- df$color[order(df$names)]

# 绘图
p <- ggplot(data = df, aes(x = names, y = value)) +
  geom_bar(stat = "identity")
p + coord_flip() +
  theme(axis.text.y = element_text(hjust = 1, colour = axis_colors))

如果需要主动指定同value时的标签排序逻辑，不需要依赖reorder的默认规则，可以直接手动指定因子水平：

# 按value升序、name字母升序的规则排序，可自定义排序优先级
df <- df[order(df$value, df$names), ]
# 直接将排序后的name列表设为因子水平
df$names <- factor(df$names, levels = df$names)

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