如何在ggplot的geom_hline中传递十六进制颜色代码？

嘿，我来帮你搞定这个ggplot颜色映射的问题！你遇到的核心问题是：当你在aes()里指定colour = item_hexcode时，ggplot会把这些十六进制字符串当成离散的分类变量处理，而非直接识别为颜色值；同时你直接传入df2$item_hexcode给scale_color_manual(values)，里面的重复值会导致映射关系混乱——因为scale需要的是「分类水平」到「颜色」的一一对应，而非重复列表。

下面给你两种规范且有效的解决方案：

方案一：基于业务逻辑的item分组着色（推荐） #

这种方案利用item和item_hexcode的对应关系，既清晰又便于后续调整图例：

library(tidyverse)
set.seed(123)
df1 <- tibble(x = 1:5, y = (sample(200:300, 5, replace = TRUE)/100))
df2 <- tibble(item = c("a", "a", "b", "c", "b"), 
              score = c(2.58, 2.63, 2.45, 2.13, 2.29), 
              item_hexcode = c("#DA020E", "#DA020E", "#034694", "#7CFC00", "#034694"))

# 提取唯一的item-颜色映射表
color_map <- df2 %>% distinct(item, item_hexcode) %>% deframe()

# 初始绘图
p1 <- ggplot(df1, aes(x, y)) + geom_line() + ylim(2, 3)

# 添加水平线并设置颜色映射
p2 <- p1 + 
  geom_hline(data = df2, aes(yintercept = score, colour = item), linetype = "dashed") +
  scale_color_manual(values = color_map)
p2

方案二：直接用十六进制字符串作为分类变量 #

如果你不需要item的语义，只想直接用item_hexcode控制颜色，只需确保scale的映射是唯一的「水平-颜色」对应：

library(tidyverse)
set.seed(123)
df1 <- tibble(x = 1:5, y = (sample(200:300, 5, replace = TRUE)/100))
df2 <- tibble(item = c("a", "a", "b", "c", "b"), 
              score = c(2.58, 2.63, 2.45, 2.13, 2.29), 
              item_hexcode = c("#DA020E", "#DA020E", "#034694", "#7CFC00", "#034694"))

# 提取唯一的十六进制颜色值，并创建「水平=颜色」的命名向量
unique_colors <- unique(df2$item_hexcode)
color_map <- setNames(unique_colors, unique_colors)

# 初始绘图
p1 <- ggplot(df1, aes(x, y)) + geom_line() + ylim(2, 3)

# 添加水平线并设置颜色映射
p2 <- p1 + 
  geom_hline(data = df2, aes(yintercept = score, colour = item_hexcode), linetype = "dashed") +
  scale_color_manual(values = color_map)
p2

额外小技巧：绕过比例尺的直接着色（不推荐） #

如果你想跳过ggplot的比例尺系统，直接给每条线分配颜色，可以用group参数区分线条，但这种方式不利于后续图例调整：

p2 <- p1 + 
  geom_hline(data = df2, aes(yintercept = score, group = item_hexcode), 
             colour = df2$item_hexcode, linetype = "dashed")
p2

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