R help - Jan 2014 - Levelplots with non-continuous x-axis breaks

Hi all,
I have a matrix which I want to plot in color. I have extensively looked at
level plot and heatmap/heatmap.2, but I would like to be able to manage the size
of the bins (boxes)  on my X axis. So I thought of simply using the rect()
function, but I can?t get around assigning the correct colors to all the values.
I have built a RectPlotter() function that takes the start and stop as well as
the value assigned to each ?bin?.
Here is what I have done so far (after countless hours of despair):

RectPlotter <- function(matrixval, ycoord, height, mycolors){
 rect(matrixval[,1], (ycoord-(0.4*height)), matrixval[,2],
(ycoord+(0.4*height)), col=mycolors, border = NA)
}

starts <- c(1,5,8,15)
ends <- c(5, 8, 15, 25)
vals1 <- c(2, 15, 7, 13)
vals2 <- c(7, 2, 1, 26)
vals3 <- c(52, 1, 29, 18)
mymatrix <- cbind(starts, ends, vals1, vals2, vals3)
# This gives me an error
mycol<- matrix(nrow=dim(mymatrix)[1], ncol=dim(mymatrix)[2],
heat.colors(max(matrix[,3:5]))[matrix[,3:5]])


At the end, I would like to have something like a levelplot, but using the
starts and ends as x-axis.
Any help would be highly appreciated. Thanks!
Patrick

Patrick,

You were pretty close.
To fix the code you have, just change "matrix" to "mymatrix"
in two places,
and either specify the argument data= or place the heat.colors bit first in
the matrix function.

Or ... you could use the array() function instead, to shorten up the code a
little.
     mycol <- array(heat.colors(max(mymatrix[, 3:5]))[mymatrix[, 3:5]],
dim=dim(mymatrix))

Jean


On Mon, Jan 6, 2014 at 9:19 PM, Pachapep <pachapep@gmail.com> wrote:
> Hi all,
> I have a matrix which I want to plot in color. I have extensively looked
> at level plot and heatmap/heatmap.2, but I would like to be able to manage
> the size of the bins (boxes)  on my X axis. So I thought of simply using
> the rect() function, but I can’t get around assigning the correct colors to
> all the values. I have built a RectPlotter() function that takes the start
> and stop as well as the value assigned to each ‘bin’.
> Here is what I have done so far (after countless hours of despair):
>
> RectPlotter <- function(matrixval, ycoord, height, mycolors){
>  rect(matrixval[,1], (ycoord-(0.4*height)), matrixval[,2],
> (ycoord+(0.4*height)), col=mycolors, border = NA)
> }
>
> starts <- c(1,5,8,15)
> ends <- c(5, 8, 15, 25)
> vals1 <- c(2, 15, 7, 13)
> vals2 <- c(7, 2, 1, 26)
> vals3 <- c(52, 1, 29, 18)
> mymatrix <- cbind(starts, ends, vals1, vals2, vals3)
> # This gives me an error
> mycol<- matrix(nrow=dim(mymatrix)[1], ncol=dim(mymatrix)[2],
> heat.colors(max(matrix[,3:5]))[matrix[,3:5]])
>
>
> At the end, I would like to have something like a levelplot, but using the
> starts and ends as x-axis.
> Any help would be highly appreciated. Thanks!
> Patrick
> ______________________________________________
> 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.
>
	[[alternative HTML version deleted]]