R help - Dec 2012 - Plot multiple Graphics via Layers

Hello,

I want to plot 13 barplots in a 4x4 matrix-window (1st layer).
So that's no Problem, it worked out.

The problem is now, that I want to add two additional layers to this 
graphic.

They contain similar barplots, just with another color for the second 
bar of each barplot (2nd layer) and antoher color for the 5th bar of 
each barplot (3rd layer).
Basically I want to place the 2nd and 3rd pic (attachment) on the first one.

I tried "layers", but it is not really working out. I don't really
now
what to do.

Please find attached the 3 pics and the code I wrote.

Thank very much you for your help,

Anne-Marie Gallrein

-- 
M. Sc. Anne-Marie B. Gallrein
Technische Universit?t Dresden
Institut f?r Klinische, Diagnostische und Differentielle Psychologie
Diagnostik und Intervention
01062 Dresden
Tel. +49 351 463-34004
gallrein at psychologie.tu-dresden.de

-------------- next part --------------
X<-matrix(rnorm(130, sd=.2), ncol=13)

par(mar=c(0,0,0,0))
par(mfrow=c(4,4))

layer1 <- apply(X=X[,1:13],
      MARGIN = 2,
      FUN=function(x) {
        barplot(x, horiz=T, xlim=c(-.75,.75),
ylim=c(0,10),col=c("black"),
                axes=F, width = .5, space = .5)
        axis(side=1, labels=F)}
      )


magenta3 <- c(rep(0,length(X[1,])),X[2,],rep(0,length(X[-(1:2),])))
X2 <- matrix (magenta3, ncol=13, byrow=T)
layer2 <- glayer(apply(X=X2[,1:13],
      MARGIN = 2,
      FUN=function(x) {
        barplot(x, horiz=T, xlim=c(-.75,.75),
ylim=c(0,10),col=c("magenta3"),
                axes=F, width = .5, space = .5)
        axis(side=1, labels=F)}
))


dodgerblue1 <- c(rep(0,length(X[1:4,])),X[5,],rep(0,length(X[-(1:5),])))
X3 <- matrix (dodgerblue1, ncol=13, byrow=T)
layer3 <- glayer(apply(X=X3[,1:13],
      MARGIN = 2,
      FUN=function(x) {
        barplot(x, horiz=T, xlim=c(-.75,.75),
ylim=c(0,10),col=c("dodgerblue1"),
                axes=F, width = .5, space = .5)
        axis(side=1, labels=F)}
))

layer1+layer2+layer3

On 12/21/2012 04:13 AM, Anne-Marie Brigitte Gallrein
wrote:
> Hello,
>
> I want to plot 13 barplots in a 4x4 matrix-window (1st layer).
> So that's no Problem, it worked out.
>
> The problem is now, that I want to add two additional layers to this
> graphic.
>
> They contain similar barplots, just with another color for the second
> bar of each barplot (2nd layer) and antoher color for the 5th bar of
> each barplot (3rd layer).
> Basically I want to place the 2nd and 3rd pic (attachment) on the first
> one.
>
> I tried "layers", but it is not really working out. I don't
really now
> what to do.
>
> Please find attached the 3 pics and the code I wrote.
>
> Thank very much you for your help,
>
> Anne-Marie Gallrein
>
Hi Anne-Marie,
Your illustration didn't come through, but your code did. My guess is 
that you want to do something like this:

layer1 <- apply(X=X[,1:13],
       MARGIN = 2,
       FUN=function(x) {
         barplot(x, horiz=T, xlim=c(-.75,.75), ylim=c(0,10),
         col=c("black","magenta",rep("black",2),
          "dodgerblue",rep("black",4)),
         axes=FALSE, width = .5, space = .5)
         axis(side=1, labels=F)}
       )

Jim