Avec RI, je veux créer une carte choroplèthle animée avec le rMaps
package et une carte personnalisée. J'ai essayé de suivre l'exemple de Diego Valle décrit ici et d'utiliser les informations de carte personnalisées pour Datamaps .
Cependant, la carte ne s'affiche pas . Mais, la légende avec la touche de remplissage appropriée apparaît avec la barre d'animation de l'année. Le fichier topoJson semble 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
Remarque: cette question a été posée sur stackoverflow sans succès. Je ne connais pas la politique sur le SIG pour publier des questions de SO. Veuillez indiquer dans les commentaires si je me trompe en copiant simplement coller ma question initiale.