R help - Mar 2007 - barplot with different color combination for each bar

Hi,

I'd like to construct a somewhat unusual barplot. In "barplot" I
use
beside=F as I'd like to have stacked bars. The height of each bar is 
always the same. Information in my plot is coded in the color of the 
bar. I therefore need to be able so assign a different combination 
(or order) of colors to each individual stacked bar.

In the example below, the combination of colors for my plot is 
generated by X, Q, color and cols. These colors are supposed to fill 
the stacked bars with the height of H. However, only the first column 
of cols is used for all columns of H as "barplot" only allows me to 
assign one vector for the color scheme of the entire barplot.

Does anybody know a way how I can assign each bar a potentially 
unique color combination?

Thanks for your help!

Kim

X <- seq(1:6)
Q    <- matrix(sample(X, 60, replace = T), nrow=6, byrow = T)
H   <-  matrix(rep(1,60), nrow=6, byrow=T)

color   <-  c("blue", "orange", "gold",
"indianred", "skyblue4", "lightblue")
cols <-     ifelse(
                 (Q ==1) , color[1],
                     ifelse(
                         (Q ==2), color[2],
                             ifelse(
                                 (Q ==3) , color[3],
                                     ifelse(
                                         (Q ==4), color[4],
                                             ifelse(
                                                 (Q ==5) , color[5], color[6]
                                                     )
                                             )
                                     )
                             )
                     )

barplot(
         H,
         col=cols,
         width = c(0.1),
         xlim = c(0,3),
         beside=F
         )

__________________________________________

Kim Milferstedt
University of Illinois at Urbana-Champaign
Department of Civil and Environmental Engineering
4125 Newmark Civil Engineering Laboratory
205 North Mathews Avenue MC-250
Urbana, IL 61801
USA
phone: (001) 217 333-9663
fax: (001) 217 333-6968
email: milferst at uiuc.edu
http://cee.uiuc.edu/research/morgenroth

Hi, I'd suggest you use ?rect for this.
Here's an example (I did not check whether it's correct...)
I also improved (but not checked :) your definition of cols.

Jonne.

X <- seq(1:6)
Q <- matrix(sample(X, 60, replace = T), nrow=6, byrow = T)
H <- matrix(rep(1,60), nrow=6, byrow=T)

color <-  c("blue", "orange", "gold",
"indianred", "skyblue4",
"lightblue")
cols <- matrix(data=color[Q], ncol=10)

# Old:
barplot(H, col=cols, width = c(0.1), xlim = c(0,3), beside=F)

# New:
x11()
plot(0, 0, type="n", ylim=c(0,nrow(Q)), xlim=c(0,ncol(Q)), 
     xlab="xlabel", ylab="")
xleft <- rep(1:ncol(Q), each=nrow(Q))
ybottom <- rep(1:nrow(Q), times=ncol(Q))
rect(xleft-1, ybottom-1, xleft, ybottom, col=cols)

On Fri, 2007-03-02 at 09:48 -0600, Kim Milferstedt
wrote:
> Hi,
> 
> I'd like to construct a somewhat unusual barplot. In
"barplot" I use
> beside=F as I'd like to have stacked bars. The height of each bar is 
> always the same. Information in my plot is coded in the color of the 
> bar. I therefore need to be able so assign a different combination 
> (or order) of colors to each individual stacked bar.
> 
> In the example below, the combination of colors for my plot is 
> generated by X, Q, color and cols. These colors are supposed to fill 
> the stacked bars with the height of H. However, only the first column 
> of cols is used for all columns of H as "barplot" only allows me
to
> assign one vector for the color scheme of the entire barplot.
> 
> Does anybody know a way how I can assign each bar a potentially 
> unique color combination?
> 
> Thanks for your help!
> 
> Kim
> 
> X <- seq(1:6)
> Q    <- matrix(sample(X, 60, replace = T), nrow=6, byrow = T)
> H   <-  matrix(rep(1,60), nrow=6, byrow=T)
> 
> color   <-  c("blue", "orange", "gold",
"indianred", "skyblue4", "lightblue")
> cols <-     ifelse(
>                  (Q ==1) , color[1],
>                      ifelse(
>                          (Q ==2), color[2],
>                              ifelse(
>                                  (Q ==3) , color[3],
>                                      ifelse(
>                                          (Q ==4), color[4],
>                                              ifelse(
>                                                  (Q ==5) , color[5],
color[6]
>                                                      )
>                                              )
>                                      )
>                              )
>                      )
> 
> barplot(
>          H,
>          col=cols,
>          width = c(0.1),
>          xlim = c(0,3),
>          beside=F
>          )
> 
> __________________________________________
> 
> Kim Milferstedt
> University of Illinois at Urbana-Champaign
> Department of Civil and Environmental Engineering
> 4125 Newmark Civil Engineering Laboratory
> 205 North Mathews Avenue MC-250
> Urbana, IL 61801
> USA
> phone: (001) 217 333-9663
> fax: (001) 217 333-6968
> email: milferst at uiuc.edu
> http://cee.uiuc.edu/research/morgenroth
> 
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.