R 用一块抖动的地毯做的柱状图

下面的脚本

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

库（ggplot2）
dat您可以在
aes
调用中简单地给出y值0，它将绘制所有ok：

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

使用一些更明显的数据：

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

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