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
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
