Özel json ile rMaps choropleth

RI ile paket ve özel bir harita ile animasyonlu bir choropleth haritası yapmak istiyorum rMaps. Burada açıklanan Diego Valle örneğini izlemeye ve Datamaps için özel harita bilgilerini kullanmaya çalıştım .

Ancak harita görüntülenmiyor . Ancak, uygun doldurma tuşuna sahip efsane yıl animasyon çubuğunda görünür. TopoJson dosyası iyi görünüyor.

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

Not: Bu soru stackoverflow ile başarılı bir şekilde sorulmuştur . SO'dan soru yayınlamak için CBS politikasını bilmiyorum. İlk sorumu kopyalayıp yapıştırmakta yanılıyorsam lütfen yorumlarda belirtin.

r topojson choropleth

— GPierre
kaynak

Sitemize hoşgeldiniz! Tercih edilen yöntem, orijinal sorunuzu geçiş için işaretlemektir : bu, iki sürüm arasında otomatik bağlantılar oluşturur, ancak mümkünse yanıtların burada yayınlanması gerektiğini bildirir.

— whuber

buna hiç bir çözüm bulabildin mi?

— RJJoling

Üzerinde çalışıyorum ama sizin URL'niz gerçekten bozuk. Bunları onarabilir veya dosyalarınızı bizimle paylaşır mısınız?

— César Arquero

Tam olarak ne yapmaya çalıştığınızı söylemek zor, çünkü örnek olarak kullandığınız url aslında bir şey göstermiyor. Veri URL'lerinizle aynı.

Her neyse, burada bu cevaplanmamış sorudan kurtulmak için basitleştirilmiş bir kodunuz var (head () kullanarak gösterdiğiniz birkaç kaydı biraz değiştirerek).

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
kaynak