Добавить легенду на график разгона ggplot2, включая дополнительные строки

Question

Я бы хотел добавить легенду к диаграмме рассеяния ggplot2, которая различает линию регрессии и отдельную строку, которую я добавил.

Например,

library(ggplot2) 
set.seed(123) 
data1=rnorm(1000,1,2) 
data2=rnorm(1000,1,4) 
DF=data.frame(data1,data2) 

ggplot(DF,aes(data1,data2))+geom_point(colour="dodgerblue",alpha=0.75)+geom_smooth(method=lm,se=F,aes(colour="Line of best fit"))+ 
    geom_abline(intercept = 0, slope = 1, linetype="dashed", colour="black", alpha=1,size=1) 

Есть две линии на этом участке, красной линии регрессии и черную линию с уравнением y=x.

Мне удалось добавить регрессионную линию к легенде, но хотелось бы добавить черную линию. В качестве примечания я также хотел бы изменить название легенды от colour.

Answer 1

Возможно, существует более простое решение, но вот лучшее, что я мог бы придумать до сих пор.

ggplot(DF, aes(data1,data2)) + 
    geom_point(colour="dodgerblue",alpha=0.75) + 
    geom_abline(aes(colour="abline", intercept=0, slope=1), linetype="dashed", alpha=1, size=1) + 
    geom_smooth(aes(colour="lm_smooth"), method = "lm", se=FALSE) + 
    scale_colour_manual(name="lines", values=c("red", "blue")) + 
    guides(colour = guide_legend(override.aes = list(alpha = 0))) 

Кредит также идет here.