# NOT RUN {
topo <- GetTopography(280, 330, 0, -60, resolution = 0.5, verbose = FALSE)
library(ggplot2)
ggplot(topo, aes(lon, lat)) +
geom_raster(aes(fill = h)) +
geom_contour(aes(z = h), breaks = 0, color = "black", size = 0.3) +
scale_fill_gradient2(low = "steelblue", high = "goldenrod2", mid = "olivedrab") +
coord_quickmap()
# }
Run the code above in your browser using DataLab