data(coastlineWorldMedium, package="ocedata")
data(secchi, package="ocedata")
if (FALSE) {
logdepth <- log10(secchi$depth)
cm <- colormap(logdepth, col=oceColorsTurbo)
par(mar=c(3, 3, 2, 1))
oce::drawPalette(colormap=cm)
oce::plot(coastlineWorldMedium, clongitude=10, clatitude=60, span=3000,
mar=par("mar"))
points(secchi$longitude, secchi$latitude, pch=20, col=cm$zcol)
title("log10 of secchi depth in m")
}
Run the code above in your browser using DataLab