リーフレットマップのためにRのすべての郡データをダウンロードするには

Question

# From http://eric.clst.org/Stuff/USGeoJSON and 
# https://en.wikipedia.org/wiki/List_of_United_States_counties_and_county_equivalents 
nycounties <- geojsonio::geojson_read("json/nycounties.geojson", 
    what = "sp") 
# Or use the rgdal equivalent: 
# nycounties <- rgdal::readOGR("json/nycounties.geojson", "OGRGeoJSON") 

pal <- colorNumeric("viridis", NULL) 

leaflet(nycounties) %>% 
    addTiles() %>% 
    addPolygons(stroke = FALSE, smoothFactor = 0.3, fillOpacity = 1, 
    fillColor = ~pal(log10(pop)), 
    label = ~paste0(county, ": ", formatC(pop, big.mark = ","))) %>% 
    addLegend(pal = pal, values = ~log10(pop), opacity = 1.0, 
    labFormat = labelFormat(transform = function(x) round(10^x))) 

上記コードはhttps://rstudio.github.io/leaflet/json.htmlからコピーされています。

私は（nycounties.geojsonファイルを作成する方法、または他の言葉で）。どのようにコードで必要とされるNY州郡のデータをダウンロードするという考えに持って

私は、最初の2つのコメントでは、両方のウェブサイト上で行ってきました米国内のデータ全体からNY州のデータをサブセット化することに失敗しました。

Answer 1

22 MBのjsonファイルをダウンロードした後、私はこれを行い、動作するように見えます。

library(leaflet) 

xy <- geojsonio::geojson_read("gz_2010_us_050_00_500k.json", what = "sp") 

> names(xy) 
[1] "GEO_ID"  "STATE"  "COUNTY"  "NAME"  "LSAD"  "CENSUSAREA" 

# from Wikipedia list of counties, find Genesse county, 
# which should be located in NY state 
> xy[grepl("36037", xy$GEO_ID), ]$STATE 
[1] 36 

# NY state should be number 36 

nyc <- xy[xy$STATE == 36, ] 

leaflet(nyc) %>% 
    addTiles() %>% 
    addPolygons()