1
# 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 文件)

我在前两条评论中浏览了这两个网站,但未能从美国的整个数据中对纽约州的数据进行子集化。

4

1 回答 1

2

下载 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()

在此处输入图像描述

于 2017-04-17T07:33:35.470 回答