R - ggplot2中绘图顶部的填充区域

Question

我正在 ggplot2 中创建一个填充密度的图，其中一些我想截断。我为缺少图片而道歉——显然我还不允许发布它们。一个简单的开头代码示例：

dd = with(density(rnorm(100,0,1)),data.frame(x,y))

ylimit = .3

ggplot(data = dd, mapping = aes(x = x, y = y), geom="line") +
 layer(data = dd, mapping = aes(x = x, y = y), geom = "area", 
       geom_params=list(fill="red",alpha=.3)) +
         scale_x_continuous(limits = c(-3,3)) +
         scale_y_continuous(limits = c(0,ylimit)) 

然而，这会导致填充密度中间的空白区域 dd$y > ylimit。

如果我用这个来补偿

dd$y = pmin(dd$y, ylimit)

该区域带有阴影，但绘图显示的区域略高于 ylimit，因此填充不会延伸到图的顶部。

理想情况下，我想知道如何让 ggplot 显示精确到 ylimit 的图，但欢迎使用任何其他将填充扩展到图顶部的解决方案。

编辑：修正了代码。

Answer 1

我想这就是你的意思。注意使用ifelse 来获取截断行为。

dd = with(density(rnorm(100,0,1)), data.frame(x, y))

ylimit = .3

dev.new(width=4, height=4)
ggplot(data = dd, mapping = aes(x = x, y = y), geom="line") +
 layer(data = dd, mapping = aes(x = x, y = ifelse(y>ylimit, ylimit, y)), geom = "area", 
       geom_params=list(fill="red",alpha=.3)) +
         scale_x_continuous(limits = c(-3,3)) +
         coord_cartesian(ylim=c(0, ylimit))