2014-01-08 53 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)) 

相关问题