## Not run:
# data(NLD_muni, NLD_prov)
# m <- tm_shape(NLD_muni) +
# tm_fill(col="population", convert2density=TRUE,
# style="kmeans",
# title=expression("Population (per " * km^2 * ")"),
# legend.hist=FALSE) +
# tm_borders("black", alpha=.5) +
# tm_shape(NLD_prov) +
# tm_borders("grey25", lwd=2) +
# tm_format_NLD(inner.margins = c(.02, .15, .06, .15)) +
# tm_scale_bar(position = c("left", "bottom")) +
# tm_compass(position=c("right", "bottom")) +
# tm_style_classic()
#
# save_tmap(m, "choropleth.png", height=7)
#
# data(World)
# m2 <- tm_shape(World) +
# tm_fill("well_being", id="name", title="Well-being") +
# tm_format_World()
#
# # save image
# save_tmap(m2, "World_map.png", width=1920, height=1080, asp=0)
#
# # cut left inner margin to make sure Antarctica is snapped to frame
# save_tmap(m2 + tm_layout(inner.margins = c(0, -.1, 0.05, 0.01)),
# "World_map2.png", width=1920, height=1080, asp=0)
#
# # save interactive plot
# save_tmap(m2, "World_map.html")
# ## End(Not run)
Run the code above in your browser using DataLab