r - 条件或任意填写ggridge(R)

Question

我试图在给定 x 的右侧对曲线下的区域进行着色，这对于所有密度图都不相同，但它会根据 y 的水平而变化。例如，

在包装小插图上，我只能找到根据五分位数对区域进行遮蔽的解决方案，但这不是我想要做的（我有一些建模产生的截止值）。

有任何想法吗？

library("ggplot")
library("ggridges")

diamonds %>%
   ggplot(aes(x = x, y = cut)) +
   geom_density_ridges()