rMaps choropleth mit benutzerdefiniertem Json

17

Mit RI möchte ich eine animierte Choropleth-Karte mit dem rMapsPaket und einer benutzerdefinierten Karte erstellen. Ich habe versucht, dem hier beschriebenen Beispiel von Diego Valle zu folgen und die benutzerdefinierten Karteninformationen für Datamaps zu verwenden .

Die Karte wird jedoch nicht angezeigt . Die Legende mit dem richtigen Füllschlüssel wird jedoch in der Jahresanimationsleiste angezeigt. Die topoJson-Datei scheint in Ordnung zu sein.

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

Hinweis: Diese Frage wurde beim Stackoverflow ohne Erfolg gestellt. Ich kenne die Richtlinie zu GIS für das Posten von Fragen von SO nicht. Bitte geben Sie in den Kommentaren an, ob ich beim Einfügen meiner ersten Frage falsch liege.

GPierre
quelle
Willkommen auf unserer Webseite! Die bevorzugte Methode besteht darin, Ihre ursprüngliche Frage für die Migration zu kennzeichnen : Dadurch werden automatisch Verknüpfungen zwischen den beiden Versionen hergestellt, aber die Benutzer werden darüber informiert, dass möglichst hier Antworten gepostet werden sollten.
whuber
Haben Sie jemals eine Lösung dafür gefunden?
RJJoling
Ich arbeite daran, aber deine URL ist tatsächlich kaputt. Könnten Sie diese reparieren oder Ihre Dateien mit uns teilen?
César Arquero

Antworten:

1

Es ist schwer zu sagen, was genau Sie versuchen, weil die URL, die Sie als Beispiel verwenden, tatsächlich nichts anzeigt. Das gleiche gilt für Ihre Daten-URLs. Bildbeschreibung hier eingeben

Wie auch immer, hier haben Sie einen vereinfachten Code (indem Sie ein wenig die wenigen Register ändern, die Sie mit head () anzeigen), um diese unbeantwortete Frage loszuwerden.

library(rMaps)
library(plyr)

#new path to csv
SDLOG <- read.table("csv.csv", header=T, stringsAsFactors=F, sep =",")
SDLOG <- mutate(SDLOG, state = c("UT", "NE", "AL")) #add place for plotting
head(SDLOG)
  year          name     sdlog  type state
1 2004 Greater Accra 0.2003069 urban    UT
2 2005 Greater Accra 0.1532271 urban    NE
3 2006 Greater Accra 0.1078268 urban    AL
4 2004 Greater Accra 0.1555555 urban    UT
5 2007 Greater Accra 0.3000000 urban    NE
6 2005 Greater Accra 0.2500000 urban    AL

#Map:
d1 <- ichoropleth(sdlog ~ state,
                  data = SDLOG[SDLOG$type=="urban",],
                  ncuts = 7,
                  pal = 'YlOrRd',
                  animate = 'year')

d1

Bildbeschreibung hier eingeben

César Arquero
quelle