ฮิสโตแกรมพร้อมพรมที่กระวนกระวายใจ

สคริปต์ต่อไปนี้

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 สำหรับฮิสโตแกรมคือการนับ ซึ่งฮิสโตแกรมควรสร้างโดยอัตโนมัติ

ฉันจะได้รับความกระวนกระวายใจได้อย่างไร?