Description Usage Arguments Value Author(s) Examples
This function takes a list of matrices and plots heatmaps for each one. There are several features for the spacing (X and Y), colour scales, titles and label sizes. If a matrix has row and/or column names, these are added to the plot.
1 | multiHeatmap(dataList, colourList, titles = NULL, main = "", showColour = TRUE, xspace = 1, cwidth = 0.5, ystarts = c(0.05, 0.9, 0.925, 0.95, 0.98), rlabelcex = 1, clabelcex = 1, titlecex = 1.2, maincex = 1.5, scalecex = 0.7, offset=.001)
|
dataList |
A |
colourList |
A |
titles |
A vector of panel titles |
main |
A main title |
showColour |
logical or logical vector, whether to plot the colour scale |
xspace |
The space between the panels (relative to number of columns). This can be either a scalar or a vector of |
cwidth |
widths of the colour scales relative to the width of the panels |
ystarts |
A vector of length 5 of numbers between 0 and 1 giving the relative Y positions of where the heatmaps, colourscale labels, colour scales, panel titles and main title (respectively) start |
rlabelcex |
character expansion factor for row labels |
clabelcex |
character expansion factor for column labels |
titlecex |
character expansion factor for panel titles |
maincex |
character expansion factor for main title |
scalecex |
character expansion factor for colour scale labels |
offset |
small offset to adjust scales for point beyond the colour scale boundaries |
This function is called for its output, a plot in the current device.
Mark Robinson
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | library(gplots)
cL <- NULL
br <- seq(-3,3,length=101)
col <- colorpanel(low="blue",mid="grey",high="red",n=101)
cL[[1]] <- list(breaks=br,colors=col)
br <- seq(-2,2,length=101)
col <- colorpanel(low="green",mid="black",high="red",n=101)
cL[[2]] <- list(breaks=br,colors=col)
br <- seq(0,20,length=101)
col <- colorpanel(low="black",mid="grey",high="white",n=101)
cL[[3]] <- list(breaks=br,colors=col)
testD <- list(matrix(runif(400),nrow=20),matrix(rnorm(100),nrow=20),matrix(rpois(100,lambda=10),nrow=20))
colnames(testD[[1]]) <- letters[1:20]
rownames(testD[[1]]) <- paste("row",1:20,sep="")
multiHeatmap(testD,cL,xspace=1)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.