直方图与紧张的地毯

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默认为范围/ 30.使用'binwidth = x'来调整它.错误:position_jitter需要以下缺失的美学:y

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

怎么才能让我紧张不安？

Answer 1

你可以在一个aes电话中简单地给出一个0 ,它会把一切都画好:

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

使用一些更明显的数据:

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

没有抖动:

有抖动: