Мне интересно, могу ли я манипулировать stat_density2d, чтобы показать плотность значений x без учета значений y.Для иллюстрации:
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 = 1), но по-прежнему показывать ту же плотность, например, так: 
(В моей публикации у меня есть несколько групп, что делает этохороший способ построить разделение группы, хотя это 1D)