R：ベースグラフィックスを使用して積み上げ棒グラフ

Question

のバーを横切って変化する色、Iは、底部に上部及び赤色の各バーグレーとこれ

a <- c(1,2,3); b <- c(1,1,1) 
barplot(rbind(a,b), col=c("red","gray")) 

ような棒グラフを得ました。しかし、私は各バーの下の色を変更し、上部にグレーを維持したいと思います。

cols <- c(rbind(c("red","green","blue"),"gray")) 
barplot(rbind(a,b), col=cols) 

はやっていません。他の方法はありますか？

Answer 1

これは最もエレガントな方法ではありませんが、これは機能します。

a<-c(1,1,1) 
b<-c(1,0,0) 
c<-c(0,2,0) 
d<-c(0,0,3) 

cols <-c("red","green","blue","gray") 
# notice order of rbind... a is last 
barplot(rbind(b,c,d,a), col=cols)