论坛上哪位高手可以帮忙解决一下下面这个问题，有些急用，多谢！
举个例子：
两个正态分布的曲线的交叉重叠部分，分三种情况添加阴影或者颜色：
曲线代码如下：
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之间的阴影，主要目的是找到画阴影的方法。