Eu gostaria de adicionar uma legenda a umggplot2 gráfico de dispersão que distingue entre uma linha de regressão e uma linha separada que adicionei.

Por exemplo,

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)

Existem duas linhas neste gráfico, uma linha de regressão vermelha e uma linha preta com equaçãoy=x.

Consegui adicionar uma linha de regressão à legenda, mas gostaria de adicionar a linha preta. Como observação, eu também adoraria poder mudar o nome da legenda decolour.