## Not run:
# data(World, metro, Europe)
#
# m1 <- tm_shape(Europe) +
# tm_polygons("yellow") +
# tm_facets(by = "name", nrow=1,ncol=1)
#
# 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)
# ## End(Not run)
Run the code above in your browser using DataLab