如何将十六进制代码传递给 ggplot 中的 geom_hline？

Question

在下面的代码中，我使用 df1 中的数据创建了一个 ggplot p1。我想在 df2 中的每个项目的 score 值处添加一条水平线，并使用列 item_hexcode 中包含的每个项目的相应十六进制代码为每行着色。

我认为将十六进制代码传递给 ggplot 以确定每条线的颜色会很简单，但我似乎无法弄清楚该怎么做。我尝试的每一种方法要么抛出错误，要么似乎将十六进制代码视为一个因子的 strings/levels。

谁能指出我哪里出错了？

library(tidyverse)
# create example dataframes
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"))

# initial plot
p1 <- ggplot(df1, aes(x, y)) + geom_line() + ylim(2, 3)
p1

# overlay horizontal lines on first plot, and colour lines according to hexcodes
p2 <- p1 + geom_hline(data = df2, aes(yintercept = score, 
             colour = item_hexcode), linetype = "dashed" ) + 
  scale_color_manual(values = df2$item_hexcode)

p2

谢谢！

Answer 1

我认为您正在寻找名为 scale_color_identity:

的函数

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

p2

当你为美学参数设置的变量取值可以直接使用时使用此功能（这里的值是十六进制代码，可以被ggplot直接解释为颜色）。

如果您的变量中有级别（例如 "low"、"medium"、"high"），您将使用 scale_color_manual，并希望为它们分配特定的颜色（而不是默认颜色或调色板中的颜色）。

Answer 2

您也可以直接在调用中使用有点未知的 I() 函数。

# overlay horizontal lines on first plot, and colour lines according to hexcodes
p1 + geom_hline(data = df2, 
                aes(yintercept = score, colour = I(item_hexcode)), 
                linetype = "dashed" 
    )

如何将十六进制代码传递给 ggplot 中的 geom_hline？

How to pass hex codes to geom_hline in ggplot?

r

colors

ggplot2

geom-hline