सामान्य वितरण प्लॉटिंग

Question

मैं सामान्य वितरण के 3 उदाहरणों को साजिश करने की कोशिश कर रहा हूं, हालांकि ggplot कारकों के स्तर से स्तरीकृत एक के बजाय पथ को पहचानने के लिए प्रतीत होता है। मैं ggplot के लिए अपेक्षाकृत नया हूँ और किसी भी मदद की सराहना की जाएगी।

set.seed(5872) 

x<-seq(-7.5,7.5,0.1) 
l<-length(x)*3 
df<-data.frame(P=factor(rep(c("Mean: -1, SD: 0.5","Mean: 0, SD: 1","Mean: 1, SD: 1.5"),  each=l)), 
X=(c(x,x,x)), 
Y=(c(dnorm(x,-1,0.5),dnorm(x,0,1),dnorm(x,1,1.5)))) 

Normal<-ggplot(data=df,aes(X,Y,group=P,color=P))+ 
geom_path()+ 
scale_x_continuous("")+ 
scale_y_continuous("f(x)")+ 
scale_color_discrete("Parameters")+ 
ggtitle("Normal") + 
theme(plot.title = element_text(size=25,lineheight=.8, face="bold")) 

मैं कैसे 3 अलग अलग रंग के साथ कारकों और साजिश पहचान करने के लिए ggplot प्राप्त कर सकते हैं:

यहाँ मेरी कोड है? एक निरंतर पथ प्रदर्शित करने के बजाय?

Answer 1

एक प्रतिलिपि प्रस्तुत करने योग्य उदाहरण, bdemarest से संकेत का उपयोग कर:

library(ggplot2) 

    set.seed(5872) 

    x<-seq(-7.5,7.5,0.1) 
    l<-length(x) 
    df<-data.frame(P=factor(rep(c("Mean: -1, SD: 0.5","Mean: 0, SD: 1","Mean: 1, SD: 1.5"), 
      each=l)), 
    X=(c(x,x,x)), 
    Y=(c(dnorm(x,-1,0.5),dnorm(x,0,1),dnorm(x,1,1.5)))) 

    Normal<-ggplot(data=df,aes(X,Y,group=P,color=P))+ 
    geom_path()+ 
    scale_x_continuous("")+ 
    scale_y_continuous("f(x)")+ 
    scale_color_discrete("Parameters")+ 
    ggtitle("Normal") + 
    theme(plot.title = element_text(size=25,lineheight=.8, face="bold")) 

    print(Normal)