无法在R中使用传单包使用GeoJSON

Question

我正在尝试使用 Leaflet 包在 R 中绘制 GeoJSON。下面是代码和错误。

  library(geojsonio)
    library(leaflet)
    library(data.table)
    library(plyr)
    library(rgdal)
    library(sp)
    library(RColorBrewer)
    library(rgeos) #for simplification
    library(leafletR)
    library(sf)
    library(jsonlite)
    library(RJSONIO)

    mydata <- fromJSON("https://gist.githubusercontent.com/senthilthyagarajan/eb7a2771eab4639e94d5f9eaad28cb33/raw/1cfe355a56d2c1856a70a5389a4eadf06d782748/data.geojson",flatten=TRUE)


    leaflet(mydata) %>%
      addPolygons(color = "#444444", weight = 1, smoothFactor = 0.5,
                  opacity = 1.0, fillOpacity = 0.5,
                  fillColor = ~colorQuantile("YlOrRd", nghbrhd)(nghbrhd),
                  highlightOptions = highlightOptions(color = "white", weight = 2,
                                                      bringToFront = TRUE))


    Error: lexical error: invalid char in json text.
                                           FeatureCollection
                         (right here) ------^

请忽略上面提到的一长串软件包。

Answer 1

您的数据必须是 "SpatialPolygonsDataFrame" 类型。当我运行你上面的代码时， mydata 是产生错误的列表类型。我使用 geojsonio 包中的 geojson_read 来读取数据（指定 sp: spatialpolygons 数据类型），我得到了一个传单图。 Flatten 不是 geojson_read 函数中的参数，但如果有兴趣，您可以查看 parse 参数以在数据框中转换 geojson 对象。

library(leaflet)
mydata <- geojsonio::geojson_read("https://gist.githubusercontent.com/senthilthyagarajan/eb7a2771eab4639e94d5f9eaad28cb33/raw/1cfe355a56d2c1856a70a5389a4eadf06d782748/data.geojson",what = "sp")

leaflet(mydata) %>%
  addPolygons(color = "#444444", weight = 1, smoothFactor = 0.5,
              opacity = 1.0, fillOpacity = 0.5,
              fillColor = ~colorQuantile("YlOrRd", nghbrhd)(nghbrhd),
              highlightOptions = highlightOptions(color = "white", weight = 2,
                                                  bringToFront = TRUE))

无法在R中使用传单包使用GeoJSON

Unable to use GeoJSON using leaflet package in R

r

geojson

leaflet