rMaps choropleth z niestandardowym jsonem

17

Z RI chcę stworzyć animowaną mapę choropleth z rMapspakietem i mapą niestandardową. Próbowałem podążać za przykładem Diego Valle'a opisanym tutaj i użyć niestandardowych informacji mapowych dla Datamaps .

Jednak mapa nie wyświetla . Ale legenda z odpowiednim klawiszem wypełnienia pojawia się z paskiem animacji roku. Plik topoJson wydaje się być w porządku.

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

Uwaga: to pytanie zostało zadane przy przepełnieniu stosu bez powodzenia. Nie znam zasad dotyczących GIS dotyczących zamieszczania pytań z SO. Jeśli pomylę się, po prostu skopiuj wklejając moje pierwsze pytanie, proszę doradzić w komentarzach.

GPierre
źródło
Witamy na naszej stronie! Preferowaną metodą jest oflagowanie oryginalnego pytania do migracji : spowoduje to utworzenie automatycznych linków między dwiema wersjami, ale poinformuje ludzi, że odpowiedzi powinny być zamieszczane tutaj, jeśli to możliwe.
whuber
Czy kiedykolwiek znalazłeś rozwiązanie tego problemu?
RJJoling
Pracuję nad tym, ale twój adres URL jest w rzeczywistości uszkodzony. Czy możesz to naprawić lub udostępnić nam swoje pliki?
César Arquero

Odpowiedzi:

1

Trudno powiedzieć, co dokładnie próbujesz zrobić, ponieważ adres URL, którego używasz jako przykładu, tak naprawdę nic nie pokazuje. To samo z adresem URL danych. wprowadź opis zdjęcia tutaj

W każdym razie tutaj masz uproszczony kod (nieco modyfikując kilka rejestrów, które wyświetlasz za pomocą head ()), aby pozbyć się tego pytania bez odpowiedzi.

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

wprowadź opis zdjęcia tutaj

César Arquero
źródło