曲线重叠部分如何添加阴影

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

论坛上哪位高手可以帮忙解决一下下面这个问题，有些急用，多谢！
举个例子：
两个正态分布的曲线的交叉重叠部分，分三种情况添加阴影或者颜色：
曲线代码如下：
A <- rnorm(100000, mean=2, sd=0.7)
B <- rnorm(100000, mean=4, sd=0.7)

plot(density(A), xlim = c(0,7), lwd=2, col="blue")
lines(density(B), lwd=2, col="red")



图片2和3阴影的边界分别代表 红线和兰线Y值大于0的情况，我这是手绘是大概表达意思实际操作大于0的部分可能更宽，或者也可以定义一个X的区间说2到4之间的阴影，主要目的是找到画阴影的方法。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：正态分布 如何

1. A <- rnorm(100000, mean=2, sd=0.7)
   
2. B <- rnorm(100000, mean=4, sd=0.7)
   
3. 
   
4. plot(density(A), xlim = c(0,7), lwd=2, col="blue")
   
5. lines(density(B), lwd=2, col="red")
   
6. p=density(B)
   
7. q=density(A)
   
8. px=p$x;
   
9. py=p$y;
   
10. qx=q$x;
    
11. qy=q$y;
    
12. wp=which(px<4&px>2)
    
13. wq=which(qx<4&qx>2)
    
14. polygon(c(px[px<4&px>2],4),c(py[wp],qy[qx>4][1]),  col = "orange", lty = 2, lwd = 2, border = "red")
    
15. polygon(c(2,qx[qx<4&qx>2]),c(py[px>2][1],qy[wq]),  density = c(10, 20), lty = 2, lwd = 2, border = "red")

复制代码

大概这样

yywan0913 发表于 2014-8-27 16:11
大概这样

多谢 yywan0913』厉害！
我自己研究一下！

都是大神啊，我好菜

yywan0913 发表于 2014-8-27 16:11
大概这样

牛逼的大神