R：從JSON文件中選擇一定的信息

Question

我已經從（http://eric.clst.org/wupl/Stuff/gz_2010_us_040_00_20m.json）導入了一個JSON文件到R中，我試圖只選擇堪薩斯州的縣。 現在我把所有的數據都放到一個變量中，我正在試圖製作這個只是堪薩斯縣的子數據。我不知道如何去做這件事。

Answer 1

library(rjson) 
lst=fromJSON(file = 'http://eric.clst.org/wupl/Stuff/gz_2010_us_040_00_20m.json') 

index = which(sapply(lapply(lst$features,"[[",'properties'),'[[','NAME')=='Kansas') 

subdata = lst$features[[index]] 

Answer 2

你有什麼有geoJson，可直接通過library(sf)閱讀，給你一個sf對象，這也是data.frame。然後你可以使用普通的data.frame子集化操作

library(sf) 

sf <- sf::read_sf("http://eric.clst.org/wupl/Stuff/gz_2010_us_040_00_20m.json") 

sf[sf$NAME == "Kansas", ] 

# Simple feature collection with 1 feature and 5 fields 
# geometry type: MULTIPOLYGON 
# dimension:  XY 
# bbox:   xmin: -102.0517 ymin: 36.99308 xmax: -94.58993 ymax: 40.00316 
# epsg (SRID): 4326 
# proj4string: +proj=longlat +datum=WGS84 +no_defs 
#   GEO_ID STATE NAME LSAD CENSUSAREA      geometry 
# 30 0400000US20 20 Kansas  81758.72 MULTIPOLYGON(((-99.541116 3... 

而且看到你想要的個別縣，你需要使用縣數據集

sf_counties <- sf::read_sf("http://eric.clst.org/wupl/Stuff/gz_2010_us_050_00_500k.json") 
sf_counties[sf_counties$STATE == 20, ] 

Answer 3

要留一個JSON的工作流程，可以嘗試jqr

library(jqr) 
url <- 'http://eric.clst.org/wupl/Stuff/gz_2010_us_040_00_20m.json' 
download.file(url, (f <- tempfile(fileext = ".json"))) 
res <- paste0(readLines(f), collapse = " ") 
out <- jq(res, '.features[] | select(.properties.NAME == "Kansas")') 

可以很容易地映射像

library(leaflet) 
leaflet() %>% 
    addTiles() %>% 
    addGeoJSON(out) %>% 
    setView(-98, 38, 6)