如何在ggplot2中绘制裁剪的密度图而不会丢失任何部分

我想使用ggplot2绘制由不同方法产生的密度的格子图，其中始终使用相同的yaxis比例尺。

我想将y轴的上限设置为低于任何一种方法的最高密度值的值。但是，默认情况下，ggplot会删除几何图形中位于绘制区域之外的部分。

例如：

# Toy example of problem

xval <- rnorm(10000)

#Base1
plot(density(xval)) 
#Base2
plot(density(xval), ylim=c(0, 0.3)) # densities > 0.3 not removed from plot

xval <- as.data.frame(xval)

ggplot(xval, aes(x=xval)) + geom_density() #gg1 - looks like Base1
ggplot(xval, aex(x=xval)) + geom_density() + ylim(0, 0.3) 
#gg2: does not look like Base2 due to removal of density values > 0.3

这些产生以下图像：

如何使ggplot图像没有缺少的部分？