在同一图上绘制密度图和散点图

Question

我想复制密度图和散点图的组合图，如本文图3所示：

https://www.ncbi.nlm.nih.gov/pmc/articles/PMC6222032/

我想在基本R或任何R包中执行此操作。 我知道如何绘制密度图和散点图，但不知道如何像本文中那样将两者结合起来。 有人可以建议什么吗？

Answer 1

library(ggplot2)
ggplot(iris, aes(Sepal.Width)) + 
  geom_histogram(binwidth = 0.3, fill = "gray70", color = "white") +
  geom_jitter(aes(y = -5), height = 3, alpha = 0.2) +
  theme_classic()