r - 如何在 R 中为 Leaflet 使用 addGeoJSON() 功能？

Question

有人可以解释 addGeoJSON() 功能如何在 R 中工作，我无法理解文档。

?addGeoJSON =>( map ，geojson，layerId = NULL)

什么是 geojson 和 layerId？

我能够使用 GDAL 导入我的 GeoJSON:
a1 <- readOGR(dsn = "myData.geojson", layer = "OGRGeoJSON")

如何访问列以使用传单 addGeoJSON() 绘制 x, y ？

谢谢

Answer 1

addGeoJSON 的第一个参数是传单对象，通过调用 leaflet() 创建.例如。，

url <- "https://raw.githubusercontent.com/glynnbird/usstatesgeojson/master/california.geojson"
geojson <- jsonlite::fromJSON(url)
library("leaflet")
leaflet() %>% 
  addTiles() %>%
  setView(lng = -98.583, lat = 39.833, zoom = 3) %>% 
  addGeoJSON(geojson)

您可以替换通过 readOGR 读入的 geojson与 geojson我创建的对象

与 readOGR()

library("leaflet")
library("rgdal")

url <- "https://raw.githubusercontent.com/glynnbird/usstatesgeojson/master/california.geojson"
res <- readOGR(dsn = url, layer = "OGRGeoJSON")
leaflet() %>% 
  addTiles() %>%
  setView(lng = -98.583, lat = 39.833, zoom = 3) %>% 
  addPolygons(data = res)

您应该更换 addPolygons(data = res)与 addPolygons(data = res, lng = "feature.properties.long", lat = "feature.properties.lat")
应该适用于您上面的示例。两者都可能返回 SpatialPolygonsDataFrame类，您需要将其传递给 data leaflet() 中的参数或 addPolygons() .

好的，如果您正在从磁盘读取带有点的 geojson 文件，那么例如，

geojson <- '{
  "type": "FeatureCollection",
  "features" :
  [
    {
      "type": "Feature",
      "geometry": {
        "type": "Point",
        "coordinates": [ -123, 49 ]
      }, 
      "properties": {
        "a_property": "foo", 
        "some_object": {
          "a_property": 1, 
          "another_property": 2 
        }
      }
    }
  ]
}'
writeLines(geojson, "file.geojson")
res <- readOGR(dsn = "file.geojson", layer = "OGRGeoJSON")
leaflet() %>% 
  addTiles() %>%
  setView(lng = -123, lat = 49, zoom = 6) %>% 
  addMarkers(data = res)