将条形图添加到geom_density的底部

Question

我想在geom_density图的底部添加一个条形图...我可以做些类似的事情：

ggplot(data = iris, aes(x = Sepal.Length)) + 
  geom_density(fill = "#2D708EFF", alpha = .2) + 
  geom_point(aes(y = 0), alpha = .4, shape = 73, size = 6)

但是使用ggplot2可以做到这一点吗？我的关键字可能已停用，但到目前为止，我还找不到其他ggplot2解决方案。

Answer 1

您必须在寻找geom_rug()

library(ggplot2)
ggplot(data = iris, aes(x = Sepal.Length)) + 
  geom_density(fill = "#2D708EFF", alpha = .2) + 
  # geom_point(aes(y = 0), alpha = .4, shape = 73, size = 6) +
  geom_rug()

地毯图是一种紧凑的可视化视图，旨在用两个1d边际分布来补充2d显示。地毯图显示个别情况，因此最好与较小的数据集一起使用。