R語言hist重疊圖作法

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函數用於控制顏色透明度，出圖結果如下：