Добавить легенду для аблина в ggplot geom_point

Question

Я хотел бы добавить легенду, которая описывает только линии на моем графике, которая похожа на эту:

library(ggplot)

df<-as.data.frame(cbind(seq(1:10), seq(from=2, to=20, 2)))
ggplot(data=df, aes(V1, V2))+geom_point()+
  geom_abline(intercept=0, slope=1)

Я только хочу добавить абзац к легенде. Я уже пытался работать с geom_line, но он исчезает, когда я настраиваю x и ylims графика. У ggplot2 нет возможности создать легенду с нуля, похожую на решетку, не так ли?

Answer 1

Вы можете обернуть параметры geom_abline в aes() и добавить элемент цвета, который затем контролируется в вызове scale_color_manual():

   ggplot(data=df, aes(V1, V2)) +
      geom_point() +
      geom_abline(aes(color="whatever", intercept=0, slope=1)) +
      scale_color_manual(values = "red") +
      labs(color=NULL)

Answer 2

Или вы можете сделать это для обоих цветов:

ggplot(data = df, aes(color="red", V1, V2)) + geom_point() + 
  geom_abline(aes(intercept = 0, slope = 1, color="blue")) + 
  scale_color_manual(values = c("red", "blue")) +
  labs(color=NULL)

введите описание изображения здесь