ggplot未按col列指定顺序应用颜色的技术问题求助

核心问题 #

你当前的代码有两个关键错误导致颜色匹配混乱：

1. 在geom_segment的aes中直接引用外部数据框的consumption_supplychain$col，而非使用管道处理后的列名，容易因数据顺序变化导致映射错位；
2. scale_color_manual的values参数传入了整个重复的col列，ggplot会自动对颜色字符串做离散排序，而非按照processing.level的逻辑顺序匹配颜色。

修正步骤 #

1. 先明确processing.level与颜色的固定对应关系（从你的数据框中提取）：

   • level 1 → #073b4c
   • level 2 → #118ab2
   • level 3 → #06d6a0
   • level 4 → #ffd166
   • level 5 → #ef476f

2. 修改ggplot代码，将颜色映射绑定到processing.level，而非直接绑定颜色字符串，并手动指定每个level对应的颜色：

consumption_supplychain %>%
  mutate(xval = as.numeric(factor(Country)) + scales::rescale(processing.level, to=c(-0.05, 0.05))) %>%
  ggplot() +
  # 颜色映射改为processing.level，而非外部数据框的col列
  geom_segment(aes(x = xval, xend = xval, y=y, yend = yend, color = factor(processing.level)),
               linejoin = 'bevel',
               lineend = 'butt',
               linewidth = 1.5,
               arrow = arrow(angle = 55, length = unit(1.5, "mm"))) +
  # 按processing.level的顺序指定对应颜色，values用唯一颜色向量
  scale_color_manual(name = "",
                     values = c("#073b4c", "#118ab2", "#06d6a0", "#ffd166", "#ef476f"),
                     labels = c("Domestically produced hides",
                                "Trade in raw hides",
                                "Trade in tanned hides",
                                "Trade in leather",
                                "Trade in consumer goods")) +
  scale_x_continuous("", breaks = 1:5,
                     labels = c("Brazil", "China", "European Union", "India", "USA")) +
  scale_y_continuous(labels = scales::label_number(scale=1/1000000)) +
  ylab("Million tonnes per year")

额外说明 #

• 将processing.level转成factor是为了确保ggplot将其当作离散变量处理，保持level的顺序；
• scale_color_manual的values向量顺序必须和labels以及processing.level的顺序完全对应，这样每个level才能匹配到正确的颜色；
• 避免在aes中使用$引用外部数据框，管道处理后的数据集应该直接用列名，保证数据一致性。

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