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 el mapa del link que os pongo y poco más que leer el shape con readShapeSpatial y crear dos objetos uno con Europa sin la isla y otro con la isla, elide nos permite desplazar un objeto de spatial data dentro del gráfico y lo metemos en un bucle y bye England. Ahora el que me mueva las Canarias en un shape file con más de 2 líneas de código me paga una cervecita. Saludos.