Agregue una leyenda a un diagrama de dispersión ggplot2 que incluya líneas adicionales

Me gustaría agregar una leyenda a unggplot2 gráfico de dispersión que distingue entre una línea de regresión y una línea separada que he agregado.

Por ejemplo,

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)

Hay dos líneas en este gráfico, una línea de regresión roja y una línea negra con ecuación.y=x.

He logrado agregar una línea de regresión a la leyenda, pero me gustaría agregar la línea negra. Como nota al margen, también me encantaría poder cambiar el nombre de la leyenda decolour.

Respuestas a la pregunta(1)

Su respuesta a la pregunta