Ocean colour palette for chlorophyll-a.
chl.pal(x, palette = FALSE, alpha = 1)
a vector of data values or a single number
logical, if TRUE
return a list with matching colours and values
value in 0,1 to specify opacity
colours, palette, or function, see Details
Flexible control of the chlorophyll-a palette. If x
is a
single number, the function returns that many colours evenly
spaced from the palette. If x
is a vector of multiple
values the palette is queried for colours matching those values,
and these are returned. If x
is missing and palette
is FALSE
then a function is returned that will generate n
evenly spaced colours from the palette, as per
colorRampPalette
.
Derived from http://oceancolor.gsfc.nasa.gov/DOCS/palette_chl_etc.txt.
if (FALSE) {
chl <- readchla(xylim = c(100, 110, -50, -40))
## just get a small number of evenly space colours
plot(chl, col = chl.pal(10))
## store the full palette and work with values and colours
pal <- chl.pal()
## the standard full palette
plot(chl, breaks = pal$breaks, col = pal$cols)
## a custom set of values with matching colours
plot(chl, col = chl.pal(pal$breaks[seq(1, length(pal$breaks), length = 10)]))
## any number of colours stored as a function
myfun <- chl.pal()
plot(chl, col = myfun(18))
## just n colours
plot(chl, col = chl.pal(18))
}