nos seguintes dados de amostra, como posso exibir o abline (por exemplo, a linha de cor vermelha) na legenda com y. meu código e dados:

x<-c(1990,1991,1992,1993,1994,1995)
y<-c(400,500,465,450,550,555)

df<-data.frame(x,y)
df
plot1<- ggplot(df, aes(x)) +
        geom_line(size=0.5,lty="dashed", aes(y=y),color="Blue") +
        geom_abline(aes(slope=-0.62,intercept=1670,colour="break"),size=0.9)+
        geom_point(aes(y=y,shape="y"),size=4, color="Gray24",fill="Green")
plot1

. o que eu tenho é o abaixo imagem. eu preciso que a linha vermelha seja exibida na legenda