2014-01-08 51 views

回答

2

如果我明白你的問題,這應該這樣做。雖然你的帖子的標題說'正常回歸',但不知道那是什麼。

normalpars <- read.table(text= 
"code mean sd 
DIV 0.1790 0.2099 
CAS 0.1040 0.1576 
ATL 0.0960 0.2218 
COM 0.0980 0.1768", header=TRUE) 

plot(1, xlim=c(-1,1), ylim=c(0,3), type='n', 
    xlab="X", ylab="Density") 
for(i in 1:nrow(normalpars)){ 
    curve(dnorm(x, mean=normalpars$mean[i], sd=normalpars$sd[i]), 
    add=TRUE) 
} 
+0

謝謝,這是非常有幫助的,對頂部的錯字表示歉意。 – user3171665

+0

還有一個問題,你能告訴我如何添加顏色(和圖例)各自的分佈? – user3171665

0

同樣ggplot使用件事:(調用你的表df

library(ggplot2) 
library(reshape2) 
# using density functions [dnorm(...)] 
x <- seq(-1,1,by=0.01) 
dist <- apply(df,1,function(z){dnorm(x,mean=z[1],sd=z[2])}) 
dist <- data.frame(x=x, dist) 
gg <- melt(dist,id.vars="x") 
ggplot(gg) + geom_line(aes(x=x, y=value, color=variable)) 

相關問題