Animación con R para ilustrar el uso de la función de maptools elide de código “insultantemente” sencillo: library(maptools) library(animation) #Mapa descargado de: #http://www.arcgis.com/home/item.html?id=6d611f8d87d54227b494d4c3becef6a0 ub_shp = “/Users/raulvaquerizo/Desktop/R/mapas/world/MyEurope.shp” europa = readShapeSpatial(ub_shp) plot(europa) europa_sin_uk = europa[europa$FIPS_CNTRY != “UK”,] uk = europa[europa$FIPS_CNTRY == “UK”,] saveGIF( for (i in seq(0,5,by=0.1)){ plot(europa_sin_uk) uk = elide(uk,shift=c(-i,1)) plot(uk,add=TRUE)}, interval=.3, movie.name=”/Users/raulvaquerizo/Desktop/R/animaciones/brexit/bye_england.gif” ) Nos descargamos […]