r - 如何在连续的颜色图例中添加一条线而不是在图中添加一条线？

Question

有没有办法只向连续渐变图例添加一条线？我无法使用 ggplot2 找到任何此类示例。

例如，如何仅在 1.7 处的图例中添加红色水平线？

library(ggplot2)
x <- seq(1:1000)
y <-rnorm(1000,0,1)
df <- data.frame(x,y)
ggplot(df, aes(x, y, color = y)) + geom_point()

像这样:



至于我为什么要那样做，这可能没有多大意义。有关更多背景信息，我希望在这些图的图例中添加一条红线(在 4552)，以显示在不同气候变化情景下不同年度水库流入预测的背景下水库的容量，在幻灯片上讨论目的(我不需要注释红线)。有很多水库，所以如果可能的话，我想用 R 来做这一切。

谢谢你的任何想法。

Answer 1

不确定如何在渐变图例上添加自定义线，但我知道如何添加自定义颜色的自定义刻度标签:

library(ggplot2)
ggplot(df, aes(x, y, color = y)) + 
  geom_point() +
  scale_colour_gradient(breaks = c(-2, 0, 1.7, 2),
                        labels = c(-2, 0, "1.7 (important)", 2)) +
  guides(color = guide_colorbar(barheight = 10,
                                label.theme = element_text(colour = c("black", "black", 
                                                                      "red", "black"), 
                                                           angle = 0,
                                                           size = 12)))

请注意，“1.7”标签与“2”标签重叠。您可以执行以下操作:

ggplot(df, aes(x, y, color = y)) + 
  geom_point() +
  scale_colour_gradient(breaks = c(-2, 0, 1.7, 2),
                        labels = c(-2, 0, "<-- 1.7 (important)", 2)) +
  guides(color = guide_colorbar(barheight = 10,
                                label.theme = element_text(colour = c("black", "black", 
                                                                      "red", "black"), 
                                                           angle = 0,
                                                           size = 12)))

或者调整“1.7”标签的水平位置:

ggplot(df, aes(x, y, color = y)) + 
  geom_point() +
  scale_colour_gradient(breaks = c(-2, 0, 1.7, 2),
                        labels = c(-2, 0, "1.7 (important)", 2)) +
  guides(color = guide_colorbar(barheight = 10,
                                label.hjust = c(0, 0, 0.1, 0),
                                label.theme = element_text(colour = c("black", "black", 
                                                                      "red", "black"), 
                                                           angle = 0,
                                                           size = 12)))