ヒストグラム - Archives@Wiki

x <- rnorm(50)

hist(x, freq=F)
rug(x)
lines(density(x))

#win.graph()

histogram(x, type="density", panel=function(x, ...) {
 panel.histogram(x, ...)
 panel.densityplot(x, ...)
 panel.rug(x, ...)
})

参照

R