想拟合数据的分布

在一张图里，画出直方图，密度拟合曲线，以及与对比的正态分布密度曲线.我的小程序如下：

但是显示的直方图在最外边，把拟合曲线和正态曲线的挡住了，如何操作使两条曲线在最上，谢谢各位~

> (density(x),main="density ")
> m<-mean(x)
> s<-sd(x)
> curve(dnorm(x,m,s),col='red',add=T)
> hist(x,nclass=200,col='lightblue',add=T)