Estou tentando criar um histograma com dois gráficos de densidade sobrepostos. O problema: é que eu quero uma densidade para ser uma linha tracejada, que funciona perfeitamente, mas na legenda a linha tracejada não aparecerá, como no exemplo a seguir

x<-sort(rnorm(1000))
data<-data.frame(x=x,Normal=dnorm(x,mean(x),sd=sd(x)),Student=dt(x,df=3))

ggplot(data,aes(y=x))+geom_histogram(aes(x=x,y=..density..),
color="black",fill="darkgrey")+geom_line(aes(x=x,y=Normal,color="Normal"),size=1,
linetype=2)+ylab("")+xlab("")+labs(title="Density estimations")+geom_line(aes(x=x,y=Student,color="Student"),size=1)+
scale_color_manual(values=c("Student"="black","Normal"="black"))

Alguma idéia de como eu recebo a linha tracejada na legenda?

Muito obrigado!

Rainer