R help - Mar 2012 - 2 images on one plot

Dear all

with image I can plot only one set of values in one plot. 

Do somebody have any insight how to put those 2 matrices into one picture 
so that in one cell in image picture are both values from mat[1,1] and 
mat2[1,1].

mat<-matrix(1:4, 2,2)
mat2<-matrix(4:1,2,2)
x <-1:2
y <-1:2
image(x, y, mat)
image(x, y, mat2)

The only way I found is to mix x or y for both matrices  let say

xm <- sort(c(x,x+.5))
matm <- cbind(mat[,1], mat2[,1], mat[,2], mat2[,2])
image(xm,y,t(matm))

which lacks of elegance and is rather complicated when considering matrix 
with more rows and columns.

Looking forward to any hint.

Regards
Petr

On 03/13/2012 03:07 AM, Petr PIKAL wrote:
> Dear all
>
> with image I can plot only one set of values in one plot.
>
> Do somebody have any insight how to put those 2 matrices into one picture
> so that in one cell in image picture are both values from mat[1,1] and
> mat2[1,1].
>
> mat<-matrix(1:4, 2,2)
> mat2<-matrix(4:1,2,2)
> x<-1:2
> y<-1:2
> image(x, y, mat)
> image(x, y, mat2)
>
> The only way I found is to mix x or y for both matrices  let say
>
> xm<- sort(c(x,x+.5))
> matm<- cbind(mat[,1], mat2[,1], mat[,2], mat2[,2])
> image(xm,y,t(matm))
>
> which lacks of elegance and is rather complicated when considering matrix
> with more rows and columns.
>
Hi Petr,
I don't know whether this will be of any help, but it gets any two 
matrices in one plot:

interdigitate<-function(x1,x2,columns=TRUE) {
  dimx<-dim(x1)
  if(columns) {
   newx<-cbind(x1[,1],x2[,1])
   for(column in 2:dimx[2]) newx<-cbind(newx,x1[,column],x2[,column])
  }
  else {
   newx<-rbind(x1[1,],x2[1,])
   for(row in 2:dimx[1]) newx<-rbind(newx,x1[row,],x2[row,])
  }
  return(newx)
}
mat1<-matrix(1:9,nrow=3)
mat2<-matrix(11:19,nrow=3)
library(plotrix)
color2D.matplot(interdigitate(mat1,mat2))
color2D.matplot(interdigitate(mat1,mat2),columns=FALSE)

Obviously a bit of work is required to improve the elegance.

Jim