R/imagemat.R

In rafalib: Convenience Functions for Routine Data Exploration

#' image of a matrix
#'
#' Produces an image of a matrix which matches
#' the natural orientation.
#'
#' @param x the matrix
#' @param col the colors
#' @param las as in par
#' @param xlab x-axis title
#' @param ylab y-axis title
#' @param ... arguments passed to image
#'
#' @author Michael I. Love
#' 
#' @examples
#'
#' x <- matrix(c(1,0,0,0,1,
#'               1,1,0,1,1,
#'               1,0,1,0,1,
#'               1,0,0,0,1,
#'               1,0,0,0,1),
#' ncol=5,byrow=TRUE)
#'
#' imagemat(x)
#'
imagemat <- function(x,col=colorRampPalette(c("white","black"))(9),las=1,xlab="",ylab="",...) {
  image(1:ncol(x),1:nrow(x),t(x),col=col,ylim=c(nrow(x)+.5,.5),las=las,xlab=xlab,ylab=ylab,...)
}