相关疑难解决方法(0)

我有这个数据帧:

set.seed(1)
x <- c(rnorm(50, mean = 1), rnorm(50, mean = 3))
y <- c(rep("site1", 50), rep("site2", 50))
xy <- data.frame(x, y)

我已经制作了这个密度图:

library(ggplot2)
ggplot(xy, aes(x, color = y)) + geom_density()

因为site1我需要遮蔽曲线下面积> 1%的数据.因为site2我需要在曲线下面积<75%的数据.

我期待情节看起来像这样(photoshopped).经历了堆栈溢出后,我意识到其他人已经问过如何在曲线下遮挡部分区域,但是我无法弄清楚如何按组划分曲线下的区域.

我正在尝试填充geom_smooth()线条下方的部分情节。

例子：

在示例中，数据适合该曲线。我的数据不是那么流畅。我想用geom_point()和的混合geom_smooth()，并geom_area()在该地区填补了平滑的线下同时使上述几点。

我的数据图片，带有geom_smooth()：

换句话说，我希望填充该行下方的所有内容，就像图 1 中那样。