r - 带有抖动地毯的直方图

Question

下面的脚本

library(ggplot2)
dat<-rnorm(80)
dat<-data.frame(dat)
p<-ggplot(dat, aes(x=dat))+geom_histogram()
p<-p+geom_rug(sides="b", colour="blue")
p

使这张漂亮的照片:



但其中许多蓝线重叠。我想添加一些抖动!我试过使用:

p<-p+geom_rug(sides="b", position="jitter", colour="blue")

但是我收到了一条错误消息:

stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this. Error: position_jitter requires the following missing aesthetics: y

y直方图的坐标是直方图应该自动生成的计数。

我怎样才能得到我的紧张？

Answer 1

您可以简单地在 aes 中给出 0 的 y调用，它会绘制一切正常:

p + geom_rug(sides = "b", aes(y = 0), position = "jitter", colour = "blue")

使用一些更明显的数据:

dat <- c(rep(1, 50), rep(2, 50))
dat <- data.frame(dat)

无抖动:



有抖动: