[R] turning the output of cut into a waffle plot

[Jim Lemon]

Hi all,
A few days ago I offered a suggestion on how to display the initial
values that were cut into a factor as a waffle plot. As Rolf Turner
noted, a major problem for users would be constructing the matrix that
was fed to the color2D.matplot function. Here is a fairly general
purpose function for that with an example from the initial post.

egdat <- c(137,135,144,149,150,152,159,157,154,163,164,164,
           161,162,165,164,179,173,173,182,180,185,180,197,190)

cut2matrix<-function(x,breaks,ncol,nrow,right=TRUE) {
 xcut<-as.numeric(cut(x,breaks=breaks,right=right))
 if(missing(ncol)) ncol<-length(breaks)-1
 if(missing(nrow)) nrow<-max(table(xcut))
 xlist<-vector("list",ncol)
 for(xind in 1:ncol) xlist[[xind]]<-rev(x[xcut==xind])
 xdf<-as.data.frame(lapply(xlist,function(x) x[1:nrow]))
 names(xdf)<-paste("V",1:ncol,sep="")
 return(as.matrix(sapply(xdf,rev)))
}

egmat<-cut2matrix(egdat,seq(120,210,by=10),9,8,FALSE)
library(plotrix)
color2D.matplot(egmat,show.values=TRUE)

Jim