将条形图添加到 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 显示。地毯图显示个别案例，因此最好用于较小的数据集。