ggplot2密度曲线下的阴影区域

Question

我有这个数据帧:

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).经历了堆栈溢出后,我意识到其他人已经问过如何在曲线下遮挡部分区域,但是我无法弄清楚如何按组划分曲线下的区域.

Answer 1

这里有一种方法(和,作为@joran说,这是响应的扩展这里):

#  same data, just renaming columns for clarity later on
#  also, use data tables
library(data.table)
set.seed(1)
value <- c(rnorm(50, mean = 1), rnorm(50, mean = 3))
site  <- c(rep("site1", 50), rep("site2", 50))
dt    <- data.table(site,value)
#  generate kdf
gg <- dt[,list(x=density(value)$x, y=density(value)$y),by="site"]
#  calculate quantiles
q1 <- quantile(dt[site=="site1",value],0.01)
q2 <- quantile(dt[site=="site2",value],0.75)
# generate the plot
ggplot(dt) + stat_density(aes(x=value,color=site),geom="line",position="dodge")+
  geom_ribbon(data=subset(gg,site=="site1" & x>q1),
              aes(x=x,ymax=y),ymin=0,fill="red", alpha=0.5)+
  geom_ribbon(data=subset(gg,site=="site2" & x<q2),
              aes(x=x,ymax=y),ymin=0,fill="blue", alpha=0.5)

产生这个: