कस्टम json के साथ choropleth rMaps

आरआई पैकेज और एक कस्टम मानचित्र के साथ एक एनिमेटेड कोरोप्लेथ नक्शा बनाना चाहते हैं 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

नोट: यह सवाल बिना किसी सफलता के स्टैक्वॅवरफ्लो पर पूछा गया था । मुझे एसओ से सवाल पोस्ट करने के लिए जीआईएस पर नीति नहीं पता है। कृपया टिप्पणियों में सलाह दें कि क्या मैं अपने प्रारंभिक प्रश्न को कॉपी करने में गलत हूं।

r topojson choropleth

— GPierre
स्रोत

हमारी साइट पर आपका स्वागत है! पसंदीदा तरीका प्रवास के लिए अपने मूल प्रश्न को फ़्लैग करना है : जो दो संस्करणों के बीच स्वचालित लिंक बनाएगा लेकिन लोगों को सूचित करेगा कि यदि संभव हो तो उत्तर यहां पोस्ट किए जाने चाहिए।

— whuber

क्या आपको कभी इसका कोई हल मिला?

— RJJoling

मैं इस पर काम कर रहा हूं, लेकिन आपका यूआरएल वास्तव में टूट गया है। क्या आप उन लोगों की मरम्मत कर सकते हैं या अपनी फाइलें हमारे साथ साझा कर सकते हैं?

— सेसर अरक्वेरो

यह बताना मुश्किल है कि आप वास्तव में क्या करने की कोशिश कर रहे हैं क्योंकि आप जिस यूआरएल का उपयोग कर रहे हैं वह वास्तव में एक चीज नहीं दिखाती है। आपके डेटा url के साथ भी ऐसा ही है।

वैसे भी, यहाँ आपके पास एक अनुत्तरित कोड है (इस अनुत्तरित प्रश्न से छुटकारा पाने के लिए कुछ रजिस्टरों को संशोधित करना, जिन्हें आप सिर () का उपयोग करके दिखा रहे हैं)।

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

— सेसर अरक्वेरो
स्रोत