oce (version 0.1-82)

oce.colors: Create a palette of colours

Description

Create a palette of colours

Usage

oce.colors.palette(n, which=1)
oce.colors.gebco(n=9, region=c("water", "land", "both"),
	type=c("fill","line"))
oce.colors.jet(n)
oce.colors.two(n, low=2/3, high=0, smax=1, alpha = 1)

Arguments

n

the number of colors ($\ge 1$) to be in the palette.

which

an identifier for the palette, for oce.colors.palette.

region

the region characteristic, for oce.colors.gebco.

type

the type of item drawn, for oce.colors.gebco.

low

the hue, in [0,1], for the low end of a oce.colors.two scale.

high

the hue, in [0,1], for the high end of a oce.colors.two scale.

smax

the maximum saturation, in [0,1], for the colors of oce.colors.two.

alpha

the alpha value, in [0,1], for the colors of oce.colors.two.

Details

oce.colors.palette provides a variety of pre-defined palettes. which=1 yields the ColorBrewer diverging red/blue scheme while which=2 yields the ColorBrewer diverging RYB scheme. (Each is interpolated from the 11-class schemes provided on this site.)

oce.colors.gebco provides palettes that mimic the GEBCO altas colours, with shades of blue for water and of brown for land.

oce.colors.jet provides a palette similar to the Matlab jet palette.

oce.colors.two provides a two-tone palette that fades to white at central values.

References

Color Brewer. http://www.personal.psu.edu/cab38/ColorBrewer/ColorBrewer.html

Light, A., and P. J. Bartlein, 2004. The End of the Rainbow? Color Schemes for Improved Data Graphics. Eos Trans. AGU, 85(40), doi:10.1029/2004EO400002.

Martin Jakobsson, Ron Macnab, and Members of the Editorial Board, IBCAO. Selective comparisons of GEBCO (1979) and IBCAO (2000) maps. http://www.ngdc.noaa.gov/mgg/bathymetry/arctic/ibcao_gebco_comp.html

Stephenson, David B., 2005. Comment on ``Color schemes for improved data graphics,'' by A. Light and P. J. Bartlein. Eos Trans. AGU, 86(20). (See also http://geography.uoregon.edu/datagraphics/color_scales.htm)

Examples

library(oce)
opar <- par(no.readonly = TRUE)
x <- array(1:1000, dim=c(1,1000))
par(mfrow=c(1,4))
image(x, col=oce.colors.two(100), main="oce.colors.two")
image(x, col=oce.colors.jet(100), main="oce.colors.jet")
image(x, col=oce.colors.gebco(100), main="oce.colors.gebco")
image(x, col=oce.colors.palette(100), main="oce.colors.palette")
par(opar)