rMaps coropleth con json personalizzato

Con RI vuoi creare una mappa coropletica animata con il rMapspacchetto e una mappa personalizzata. Ho cercato di seguire l'esempio di Diego Valle qui descritto e di utilizzare le informazioni sulla mappa personalizzate per Datamaps .

Tuttavia, la mappa non viene visualizzata . Tuttavia, la legenda con il tasto di riempimento appropriato viene visualizzata con la barra di animazione dell'anno. Il file topoJson sembra andare bene.

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: questa domanda è stata posta su StackOverflow senza successo. Non conosco la politica sui GIS per la pubblicazione di domande da parte di SO. Si prega di avvisare nei commenti se sbaglio semplicemente copiando la mia domanda iniziale.

r topojson choropleth

— GPierre
fonte

Benvenuti nel nostro sito! Il metodo preferito è contrassegnare la domanda originale per la migrazione : ciò creerà collegamenti automatici tra le due versioni ma informerà le persone che le risposte dovrebbero essere pubblicate qui, se possibile.

— whuber

Hai mai trovato una soluzione a questo?

— RJJoling

Ci sto lavorando ma il tuo URL è effettivamente rotto. Potresti ripararli o condividere i tuoi file con noi?

— César Arquero,

È difficile dire esattamente cosa stai cercando di fare perché l'URL che stai usando come esempio in realtà non mostra nulla. Lo stesso con l'URL dei tuoi dati.

Ad ogni modo, qui hai un codice semplice (che modifica un po 'i pochi registri che stai mostrando usando head ()) per sbarazzarti di questa domanda senza risposta.

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

— César Arquero
fonte