# [R] 2 images on one plot

Petr PIKAL petr.pikal at precheza.cz
Tue Mar 13 11:19:33 CET 2012

```Thanks Jim

For the first glance it seems to do what I want. I must go through it more
thoroughly.

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
>

```