R：在堆积条形图中更改横条的颜色

Question

使用基本图形，我得到了像这样的条形图

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 )