Ich möchte eine Legende zu einem @ hinzufügggplot2 Streudiagramm, das zwischen einer Regressionslinie und einer separaten Linie unterscheidet, die ich hinzugefügt habe.

Beispielsweise

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)

Auf diesem Plot befinden sich zwei Linien, eine rote Regressionslinie und eine schwarze Linie mit der Gleichungy=x.

Ich habe es geschafft, der Legende eine Regressionslinie hinzuzufügen, möchte aber die schwarze Linie hinzufügen. Als Randnotiz würde ich auch gerne den Namen der Legende von @ ändern könnecolour.