oceColorsPalette(n, which=1)oceColorsGebco(n=9, region=c("water", "land", "both"),
type=c("fill","line"))
oceColorsJet(n)
oceColors9A(n)
oceColors9B(n)
oceColorsTwo(n, low=2/3, high=0, smax=1, alpha = 1)
oceColorsGebco
.oceColorsGebco
.oceColorsTwo
scale.oceColorsTwo
scale.oceColorsTwo
.oceColorsTwo
.oceColorsPalette
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.) A family of nine-color schemes is as follows: which="jet"
(or
which="9A"
or which=9.01
for the Jet scheme; which="9B"
or which=9.02
for a scheme similar to Jet but omitting the green, and
somewhat desaturating the yellow and cyane.
oceColorsGebco
provides palettes that mimic the GEBCO altas
colours, with shades of blue for water and of brown for land.
oceColorsJet
provides a palette similar to the Matlab
oceColorsTwo
provides a two-tone palette that fades to white
at central values.
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.
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
library(oce)
opar <- par(no.readonly = TRUE)
x <- array(1:1000, dim=c(1,1000))
par(mfrow=c(1,4))
image(x, col=oceColorsTwo(200), main="oceColorsTwo")
image(x, col=oceColorsJet(200), main="oceColorsJet")
image(x, col=oceColorsGebco(200), main="oceColorsGebco")
image(x, col=oceColorsPalette(200), main="oceColorsPalette")
par(opar)
# real-world example, with acoustic-doppler profiler data
data(adp)
par(mfrow=c(3,1))
plot(adp, which='u1')
plot(adp, which='u1', col=oceColorsJet)
plot(adp, which='u1', col=oceColors9B)
Run the code above in your browser using DataLab