R语言hist重叠图作法

?

1 2 3 4 5

set.seed(1) h1<-hist(rnorm(1000,100,5)) h2<-hist(rnorm(1000,99,5)) plot(h2,col=rgb(255,0,0,50,maxColorValue =255),border = NA) plot(h1,col=rgb(225,225,0,50,maxColorValue =255),add=T,border = NA)

rbg函数用于控制颜色透明度，出图结果如下：