規制されて書き込めなかった。
普通はpolygon()を使う

>>820
> x <- rnorm(100);hist(x, prob=T, ann=F)
> a <- density(x)
> polygon(a$x,a$y, col="red")