Con RI quiero hacer un mapa animado de coropletas con el rMaps
paquete y un mapa personalizado. Intenté seguir el ejemplo de Diego Valle descrito aquí y usar la información del mapa personalizado para Datamaps .
Sin embargo, el mapa no se muestra . Pero, la leyenda con la tecla de relleno adecuada aparece con la barra de animación del año. El archivo topoJson parece estar bien.
library(rCharts);library(rMaps);library(rgdal)
map = readOGR("https://raw.githubusercontent.com/gupierre/GHA_vol/master/Data/GHA_adm/GHA_adm1.topo.json", layer="admin_1",stringsAsFactors=F)
#Data:
SDLOG<-read.table("https://raw.githubusercontent.com/gupierre/GHA_vol/master/Data/sdlog.csv", header=T,stringsAsFactors=F, sep =",")
head(SDLOG)
year name sdlog type
>1 2004 Greater Accra 0.20030687 urban
>2 2005 Greater Accra 0.15322712 urban
>3 2006 Greater Accra 0.10782677 urban
#Map:
library(rCharts);library(rMaps)
d1 <- ichoropleth(sdlog ~ name, data = SDLOG[SDLOG$type=="rural",], ncuts = 7, pal = 'YlOrRd', animate = 'year', map = 'admin_1')
d1$set(
geographyConfig = list(
dataUrl = "https://raw.githubusercontent.com/gupierre/GHA_vol/master/Data/GHA_adm/GHA_adm1.topo.json"
),
scope = 'admin_1',
setProjection = '#! function( element, options ) {
var projection, path;
projection = d3.geo.mercator()
.center([8, -1]).scale(element.offsetWidth)
.translate([element.offsetWidth / 2, element.offsetHeight / 2]);
path = d3.geo.path().projection( projection );
return {path: path, projection: projection};
} !#'
)
d1
Nota: esta pregunta se hizo en stackoverflow sin éxito. No conozco la política sobre SIG para publicar preguntas de SO. Indique en los comentarios si me equivoco al simplemente copiar y pegar mi pregunta inicial.