Africa = World[World$continent == "Africa", ]
#step3 L50: to do: trans.isglobal needs another variant trans.apply_from_here
tm_shape(Africa, crs = "+proj=robin") +
tm_cartogram(size = "pop_est", options = opt_tm_cartogram(itermax = 15)) +
tm_text("name")
tm_shape(Africa, crs = "+proj=robin") +
tm_cartogram_ncont(size = "pop_est", options = opt_tm_cartogram_ncont()) +
tm_text("name")
tm_shape(World, crs = "+proj=robin") +
tm_polygons() +
tm_cartogram_ncont(size = "pop_est", fill = "yellow")
library(cartogram)
# to do: make output like this:
W = cartogram_ncont(World |> st_transform("+proj=robin"), weight = "pop_est", k = 1)
tm_shape(World, crs = "+proj=robin") +
tm_polygons() +
tm_shape(W) +
tm_polygons(fill = "yellow")
tm_shape(metro) + tm_bubbles(size = "pop2020", size.scale = tm_scale_continuous(values.range = c(0.4,1)))
# tmapSeq() extend $values. To do: check if they need to be within [from, to]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.