Plot multiple Graphics via Layers

2 messages · Anne-Marie Brigitte Gallrein, Jim Lemon

Thu, Dec 20, 2012 9:13 AM #

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

Jim Lemon

Thu, Dec 20, 2012 6:28 PM #

On 12/21/2012 04:13 AM, Anne-Marie Brigitte Gallrein wrote:

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