# NOT RUN {
data(World, metro, Europe)
m1 <- tm_shape(Europe) +
tm_polygons("yellow") +
tm_facets(along = "name")
animation_tmap(m1, filename="European countries.gif", width=800, delay=40)
m2 <- tm_shape(World) +
tm_polygons() +
tm_shape(metro) +
tm_bubbles(paste0("pop", seq(1970, 2030, by=10)),
border.col = "black", border.alpha = .5) +
tm_facets(free.scales.symbol.size = FALSE, nrow=1,ncol=1) +
tm_format_World(scale=.5)
animation_tmap(m2, filename="World population.gif", width=1200, delay=100)
# }
Run the code above in your browser using DataLab