barplot colors

wmod <- cbind(c(w[,1], 0, 0), c(0, 0, w[,2]))
barplot(wmod, main="2012", col=c("red", "green", "blue", "pink"))

-----Original Message-----
From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-
project.org] On Behalf Of Francois de Ryckel
Sent: Tuesday, March 26, 2013 1:09 PM
To: r-help at r-project.org
Subject: [R] barplot colors

Dear all,

I have a 2 by 2 matrix and I would like to do a barplot with it.  (so 2
bars with each having 2 stacks.).  I would like to have one colors per
stack, so 4 different colors total.
The problem is that R is only given me 2 colors (the same two for the
bottom stack and the same two for the top stack).  Any idea how I can
do to have 4 colors? (without using ggplot2 preferably)
Here is my code

w <- matrix(table(cutMF12G3),2,2)
w

     [,1] [,2]
[1,]    8   13
[2,]    8    8

barplot(w, main="2012", col=c("red", "green", "blue", "pink"))

Thanks in advance for your help.

Frangois



	[[alternative HTML version deleted]]