#Combining base R plotting with rayshader's spherical color mapping and raytracing:
if(rayshader:::run_documentation()) {
montereybay %>%
sphere_shade() %>%
add_overlay(height_shade(montereybay),alphalayer = 0.6) %>%
add_shadow(ray_shade(montereybay,zscale=50)) %>%
plot_map()
}
if(rayshader:::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