# chargement des packages nécessaires
library(rCarto)
library(animation)

# on charge un data frame
data(mtq)

head(mtq)

# Dans cette boucle on crée une carte par variable du data frame mtq
graph.ani <- function() {
  for (i in 2:ncol(mtq)) {
    # Affichage du graph
    mapCircles(shpFile = file.path(path.package("rCarto"), "shapes/COMMUNE"),
               shpId = "INSEE_COM",
               df = mtq,
               dfId = "ID",
               var = colnames(mtq)[i],
               title =  colnames(mtq)[i])
  }
}

# création de l'animation
saveGIF(graph.ani(), 
        interval = 2 ,
        movie.name = "graphAnim.gif")