删除由ggplot中的geom_vline引起的图例中的垂直线

Question

我正在尝试修复一个图例，以免ggplot 中的geom_vline 引起交叉。 我知道我的示例作为情节没有多大意义，但只是想要一个快速可重现的示例。

library(ggplot2)
ggplot(diamonds)+
  geom_point(aes(x = carat, y = depth, colour = "depth"), pch = 4)+
  geom_line(aes(x = carat, y = table, colour = "table"))+
  geom_vline(aes(xintercept = 2, colour = "x = 2"))+
  guides(colour = guide_legend(override.aes = list(linetype=c(0,1,1), shape=c(4,NA,NA))))

我知道我可以使用guide_legend(override.aes = …) 来解决每个图例项上都出现点和线的问题，但这似乎无法删除由geom_vline() 创建的垂直线

我发现几个问题正在寻找解决方案（如下），但它们似乎都通过使用不同的 aes（线型或使用填充的颜色）分隔 vline 来解决它。有没有办法可以保留colour aes 但我的传奇不会像这样？

R - combined geom_vline and geom_smooth in legend

Legend showing an unexpected black line with geom_vline

Answer 1

这似乎适用于这个例子。不确定您的实际数据。

library(ggplot2)
ggplot(diamonds)+
  geom_point(aes(x = carat, y = depth, colour = "depth"), pch = 4)+
  geom_line(aes(x = carat, y = table, colour = "table"))+
  geom_vline(aes(xintercept = 2, colour = "x = 2"), show.legend = F)+
  guides(colour = guide_legend(override.aes = list(linetype=c(0,1,1), shape=c(4,NA,NA))))

由reprex package (v0.2.0) 于 2018 年 9 月 9 日创建。