커스텀 json으로 rMaps choropleth

RI 는 패키지 및 사용자 지정 맵 을 사용하여 애니메이션 된 choropleth 맵 을 만들고자합니다 rMaps. 나는 디에고 발레 설명의 모범을 따르려고 여기 와 사용하는 데이터 맵에 대한 사용자 정의지도 정보를 .

그러나 지도는 표시되지 않습니다 . 그러나 적절한 채우기 키가있는 범례가 연도 애니메이션 막대와 함께 나타납니다. topoJson 파일이 정상인 것 같습니다.

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

참고 :이 질문은 성공하지 않고 stackoverflow 에서 요청되었습니다 . 나는 SO로부터 질문을 게시하기위한 GIS 정책을 모른다. 첫 질문을 간단하게 붙여 넣는 것이 잘못 되었다면 의견에 조언하십시오.

당신이 예제로 사용하는 URL이 실제로 어떤 것을 보여주지 않기 때문에 정확히 무엇을하려고하는지 말하기가 어렵습니다. 데이터 URL과 동일합니다.

어쨌든 여기 에이 대답되지 않은 질문을 제거하기 위해 간단하게 코드가 있습니다 (head ()를 사용하여 표시하는 몇 개의 레지스터를 약간 수정).

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