Próbuję stworzyć histogram z dwoma nałożonymi wykresami gęstości. Problem: czy chcę, aby jedna gęstość była linią przerywaną, która działa doskonale, ale w legendzie linia przerywana nie pojawi się, jak w poniższym przykładzie

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"))

Jakieś pomysły, jak uzyskać przerywaną linię w legendzie?

Dziękuję Ci bardzo!

Rainer