r - 如何删除添加到图例中的斜线？

Question

如何删除添加到图例中的斜线？还有黄色和灰色上的点...为什么会发生这种情况？

library(ggplot2)
x <- seq(from = 1, to = 10, by = 1)
df = data.frame(x=x, y=x^2, v=2*x)
df2 = data.frame(x=x, y=x^2-5*x-10)
ggplot(df, aes(x, y)) + 
  geom_point(aes(size = v)) + 
  theme_classic() +   
  scale_size("blabla") +     
  geom_point(data=df2, aes(x, y, color = "blue")) +
  geom_line(data=df2, aes(x, y, color = "blue")) +
  geom_hline(aes(color="gray",yintercept=25)) +
  geom_abline(aes(color="yellow", intercept=0, slope=1)) +
  scale_color_manual(values = c("blue","gray","yellow"), labels = c("nanana","hhh","abab"), name = "other")

Answer 1

这是color美学的图例，它尝试结合geom_point、geom_line、geom_hline<的所有所需信息 和 geom_abline。为了摆脱线条，我们需要

geom_abline(aes(color = "yellow", intercept = 0, slope = 1), show.legend = FALSE)

而对于点，我们必须添加

guides(color = guide_legend(override.aes = list(shape = c(19, NA, NA))))

这给出