plot(map1, image = TRUE, bpal = blues(100),
deep = c(-10000, -5000, 0),
shallow = c(-7000, -10, 0),
step = c(3000, 3000, 3000),
lwd = c(0.8, 0.8, 0), lty = c(1, 1, 0),
col = c("steelblue4", "steelblue", "seashell3"),
drawlabel = c(FALSE, FALSE, FALSE))
# Creating a custom palette of blues
# USE THIS ONE FOR WINDOWS:
blues <- c("lightsteelblue4", "lightsteelblue3",
"lightsteelblue2", "lightsteelblue1")
# Plotting the bathymetry with different colors for land and sea
plot(map1, image = TRUE, land = TRUE, lwd = 0, lty=0,
bpal = list(c(0, max(map1), "seashell3"),
c(min(wrld),0,blues)))