感兴趣区域的部分填充密度图

Question

我正在寻找一种方法来填充密度图下的区域，但仅用于部分分布。例如，请考虑以下分布：

library("ggplot2")
set.seed(1234)
k <- rnorm(5000, mean=.1, sd=.08)
l <- data.frame(k)
avgk = mean(k)
ggplot(l, aes(x=k)) + geom_density(alpha = .5) + geom_vline(x=avgk) + geom_vline(x=0)

这会创建一条密度曲线，其中的线条为0和平均值。但是，假设我想强调小于0的结果。（在这种情况下，这些是ROI百分比，我们希望看看它将成为一个货币输家的可能性）。

我想用颜色填充曲线下面积为0或更小的区域。