求修改一个简单R代码

要把X~N(100,15^2)的概率分布图，任意选出100000个样本的histogram, 样本大小为75的X平均值的概率分布图，三个图画在一起，我的代码如下，但是比例不一样，不完全重合，求高手修改！

1. x<-seq(40,160,0.0001)
   
2. plot(x,dnorm(x,mean=100,sd=15))
   
3. par(new=TRUE)
   
4. hist(rnorm(100000,mean=100,sd=15))
   
5. par(new=TRUE)
   
6. plot(x,dnorm(x,mean=100,sd=sqrt(3)))

复制代码

x <- rnorm(100000, 100, 15)
hist(x, prob = TRUE)
curve(dnorm(x, 100, 15), 40, 160, add = TRUE)
curve(dnorm(x, 100, sqrt(3)), 40, 160, add = TRUE)

呵呵，不知道楼主为啥要第一行的代码“x<-seq(40,160,0.0001)。。。