#Create a direct mapping of elevation to color:
montereybay |>
height_shade() |>
plot_map()
#Add a shadow:
if(run_documentation()) {
montereybay |>
height_shade() |>
add_shadow(ray_shade(montereybay,zscale=50),0.1) |>
plot_map()
}
#Change the palette:
if(run_documentation()) {
montereybay |>
height_shade(texture = topo.colors(256)) |>
add_shadow(ray_shade(montereybay,zscale=50),0.1) |>
plot_map()
}
#Really change the palette (warning: gratuitous use of rainbow palette):
if(run_documentation()) {
montereybay |>
height_shade(texture = rainbow(256)) |>
add_shadow(ray_shade(montereybay,zscale=50),0.1) |>
plot_map()
}
Run the code above in your browser using DataLab