x<-rnorm(1000)        #产生随机序列
plot(density(x))      #画出密度函数图
lines(density(x,from=-1.96,to=1.96),lwd=3,col='red')        #使95%的置信区间的线条变粗

因为你要的是95%的置信区间，所以我对它的取值是（-1.96，1.96）
本来想把输出结果贴上来

可是我不会上传图片

你就运行一下上面的函数就可以了

有什么问题欢迎交流。

首先非常感谢的。

不过好像跟我想要的有些差距。我上传了一个图片，效果类似了上面的。

好的，哥（姐）们

我看到你的图了

实在是太大了(得体谅下我的网速)

你把它另存为jpg格式的就只有50k

我下午还有课，只能晚上给你搞了

如果能搞好

会尽快发上来的。

ps:你要是能告诉我怎么上传图片的话

就太感谢了。

上传图片很简单的。在点击“回复帖子”，进入页面的情况下，在“当前心情”一栏下面有“文件上传”一栏，浏览文件上传即可^_^ （估计发帖子情况下一样的）

对不起，

哥（姐）们

实在抱歉

这个图超出我的能力范围

抱歉~~~~~~~~~~~~