O rMaps coropleta com json personalizado

17

Com o RI, você quer fazer um mapa de coro animado com o rMapspacote e um mapa personalizado. Tentei seguir o exemplo de Diego Valle descrito aqui e usar as informações de mapa personalizadas para mapas de dados .

No entanto, o mapa não é exibido . Mas, a legenda com a tecla de preenchimento adequada aparece na barra de animação do ano. O arquivo topoJson parece estar correto.

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 pergunta foi feita no stackoverflow sem êxito. Não conheço a política de GIS para postar perguntas do SO. Por favor, informe nos comentários se eu estiver errado em simplesmente copiar e colar minha pergunta inicial.

GPierre
fonte
Bem vindo ao nosso site! O método preferido é sinalizar sua pergunta original para migração : isso criará links automáticos entre as duas versões, mas informará às pessoas que as respostas devem ser postadas aqui, se possível.
whuber
Você já encontrou uma solução para isso?
precisa saber é o seguinte
Estou trabalhando nisso, mas o seu URL está realmente quebrado. Você poderia consertar esses arquivos ou compartilhar seus arquivos conosco?
César Arquero 18/03

Respostas:

1

É difícil dizer o que exatamente você está tentando fazer, porque o URL que você está usando como exemplo realmente não mostra nada. O mesmo com os seus URLs de dados. insira a descrição da imagem aqui

De qualquer forma, aqui você tem um código simplesmente digitado (modificando um pouco os poucos registros que você está mostrando usando head ()) para se livrar dessa pergunta sem resposta.

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

insira a descrição da imagem aqui

César Arquero
fonte