data(World, land, metro)
pal8 <- c("#33A02C", "#B2DF8A", "#FDBF6F", "#1F78B4", "#999999", "#E31A1C", "#E6E6E6", "#A6CEE3")
tm_shape(land, ylim = c(-88,88)) +
tm_raster("cover_cls", palette = pal8, title="Global Land Cover") +
tm_shape(metro) + tm_dots(col="#E31A1C") +
tm_shape(World) +
tm_borders(col="black") +
tm_layout(scale=.8,
legend.position = c("left","bottom"),
legend.bg.color = "white", legend.bg.alpha=.2,
legend.frame="gray50")
## Not run:
# pal20 <- c("#003200", "#3C9600", "#006E00", "#556E19", "#00C800", "#8CBE8C",
# "#467864", "#B4E664", "#9BC832", "#EBFF64", "#F06432", "#9132E6",
# "#E664E6", "#9B82E6", "#B4FEF0", "#646464", "#C8C8C8", "#FF0000",
# "#FFFFFF", "#5ADCDC")
# tm_shape(land) +
# tm_raster("cover", max.categories = 20, palette=pal20, title="Global Land Cover") +
# tm_layout(scale=.8, legend.position = c("left","bottom"))
# ## End(Not run)
tm_shape(land, ylim = c(-88,88)) +
tm_raster("trees", palette = "Greens", title="Percent Tree Cover") +
tm_shape(World) +
tm_borders() +
tm_layout(legend.position = c("left","bottom"), bg.color="lightblue")
# TIP: check out these examples in view mode, enabled with tmap_mode("view")
## Not run:
# # doesn't work in view mode, since it does not support small multiples
# tm_shape(land) +
# tm_raster("black") +
# tm_facets(by="cover_cls")
# ## End(Not run)
Run the code above in your browser using DataLab