ggplot2统计密度仅适用于y值

Question

我想知道是否可以在不考虑y值的情况下操纵stat_density2d来显示x值的密度。 为了说明：

df <- data.frame(x = c(1:40, rep(1:20, 3), 15:40))
ggplot(df, aes(x=x, y = x)) +
  stat_density2d(aes(fill='red',alpha=..level..),geom='polygon', show.legend = F) +
  geom_point(alpha = 0.3)

显然，相互绘制相同的值并没有任何意义，但是我对一定值处的图形密度感兴趣。因此，我想保持y不变（例如y = 1），但仍显示相同的密度，如下所示：

（在我的出版物中，我实际上有多个组，这使它成为绘制组分隔的好方法，即使它是一维的）