#Combining base R plotting with rayshader's spherical color mapping and raytracing:
if(run_documentation()) {
montereybay |>
sphere_shade() |>
add_overlay(height_shade(montereybay),alphalayer = 0.6) |>
add_shadow(ray_shade(montereybay,zscale=50)) |>
plot_map()
}
if(run_documentation()) {
#Add contours with `generate_contour_overlay()`
montereybay |>
height_shade() |>
add_overlay(generate_contour_overlay(montereybay)) |>
add_shadow(ray_shade(montereybay,zscale=50)) |>
plot_map()
}
Run the code above in your browser using DataLab