在3维空间中绘制密度图

Question

我有一些数据框，其中包括一些数值，我希望将这些数值绘制成彼此相邻的分组密度。但是，我希望它与下面的图片有点重叠。

这是一些具有示例结构的测试数据，但我所得到的只是此代码产生的图。但是我希望它们看起来像上面的图片。

# make data
dat = tibble(vals = c(sample(1:10, 20, replace = TRUE), sample(5:20, 20, replace = TRUE)), 
             labels = c(rep("A", 20), rep("B", 20)))
#plot
ggplot(a) + 
  geom_density(aes(vals, fill = labels)) +
  facet_grid(labels ~ .)

提前谢谢！