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)