rMaps choropleth dengan json kustom

17

Dengan RI ingin membuat peta choropleth animasi dengan rMapspaket dan peta khusus. Saya mencoba mengikuti contoh Diego Valle yang dijelaskan di sini dan menggunakan info peta khusus untuk Datamaps .

Namun, peta tidak ditampilkan . Tapi, legenda dengan kunci isian yang tepat muncul dengan bilah animasi tahun. File topoJson tampaknya baik-baik saja.

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

Catatan: pertanyaan ini ditanyakan pada stackoverflow tanpa hasil. Saya tidak tahu kebijakan GIS untuk memposting pertanyaan dari SO. Mohon saran di komentar jika saya salah hanya menyalin paste pertanyaan awal saya.

GPierre
sumber
Selamat datang di situs kami! Metode yang disukai adalah untuk menandai pertanyaan awal Anda untuk migrasi : yang akan membuat tautan otomatis antara kedua versi tetapi memberi tahu orang-orang bahwa jawaban harus diposting di sini jika memungkinkan.
whuber
Apakah Anda pernah menemukan solusi untuk ini?
RJJoling
Saya sedang mengerjakannya tetapi url Anda benar-benar rusak. Bisakah Anda memperbaiki itu atau membagikan file Anda kepada kami?
César Arquero

Jawaban:

1

Sulit untuk mengatakan apa yang sebenarnya Anda coba lakukan karena url yang Anda gunakan sebagai contoh sebenarnya tidak menunjukkan apa-apa. Sama dengan url data Anda. masukkan deskripsi gambar di sini

Lagi pula, di sini Anda memiliki kode sederhana (memodifikasi sedikit register yang Anda tampilkan menggunakan head ()) untuk menyingkirkan pertanyaan yang belum terjawab ini.

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

masukkan deskripsi gambar di sini

César Arquero
sumber