| colorbar {matlab} | R Documentation |
Displays colorbar showing the color scale.
colorbar(C, location = c("EastOutside", "WestOutside", "NorthOutside", "SouthOutside"), ...)
C |
numeric vector or matrix representing data values |
location |
character scalar indicating desired orientation with respect to the axes |
... |
graphical parameters for image may also be passed as arguments to this method |
The values of the elements of C are indices into the current
palette that determine the color of each patch.
This implementation differs a bit from its MATLAB counterpart in that the values must be passed explicitly.
P. Roebuck, roebuck@mdanderson.org
imagesc,
jet.colors,
layout,
par
grdev <- function(...) {
get(getOption("device"))(...)
}
doPlot <- function(C, cb.loc = c("EastOutside",
"WestOutside",
"NorthOutside",
"SouthOutside"), ...) {
saved.par <- par(no.readonly = TRUE)
on.exit(par(saved.par))
layout.EO <- function() {
## divide the device into one row and nine columns
## allocate figure 1 the first eight columns
## allocate figure 2 the last column
layout(matrix(c(1, 1, 1, 1, 1, 1, 1, 1, 2), ncol = 9))
}
layout.WO <- function() {
## divide the device into one row and nine columns
## allocate figure 1 the last eight columns
## allocate figure 2 the first column
layout(matrix(c(2, 1, 1, 1, 1, 1, 1, 1, 1), ncol = 9))
}
layout.NO <- function() {
## divide the device into six rows and one column
## allocate figure 1 the last five rows
## allocate figure 2 the first row
layout(matrix(c(2, 1, 1, 1, 1, 1), nrow = 6))
}
layout.SO <- function() {
## divide the device into six rows and one column
## allocate figure 1 the first five rows
## allocate figure 2 the last row
layout(matrix(c(1, 1, 1, 1, 1, 2), nrow = 6))
}
location <- match.arg(cb.loc)
switch(EXPR = location,
EastOutside = layout.EO(),
WestOutside = layout.WO(),
NorthOutside = layout.NO(),
SouthOutside = layout.SO())
imagesc(C, ...)
colorbar(C, location, ...)
}
values <- matrix(c(seq(1, 5, by = 1),
seq(2, 10, by = 2),
seq(3, 15, by = 3)), nrow = 3, byrow = TRUE)
grdev(width = 8, height = 7)
doPlot(values, "EastOutside", col = jet.colors(16))