无法使用传单包在 R 中可视化 geojson

Question

我想使用 Leaflet 在 R 中可视化城市。这是我的代码：

library(leaflet)
library(jsonlite)

geojson <- readLines("https://cartomap.github.io/nl/wgs84/gemeente_2020.geojson", warn = FALSE) %>%
  paste(collapse = "\n") %>%
  fromJSON(simplifyVector = TRUE)

map <- leaflet() %>%
       addTiles() %>%   
       addGeoJSON(geojson, weight = 1, color = "grey") %>%
       setView(5.387740, 52.155499, zoom = 7)
map

唉，没用。我没有收到错误消息，但我也没有收到带有城市边界的地图。有人可以指出我做错了什么吗？

Answer 1

addGeoJSON 函数需要一个 geojson 对象，但是 jsolite::fromJSON returns 一个列表。这应该有效：

library(leaflet)
library(sf)
library(geojsonsf)

url <- "https://cartomap.github.io/nl/wgs84/gemeente_2020.geojson"
sf <- st_read(url)

geojson <- sf_geojson(sf)

map <- leaflet() %>%
       addTiles() %>%
       addGeoJSON(geojson, weight = 1, color = "grey") %>%
       setView(5.387740, 52.155499, zoom = 7)

map

无法使用传单包在 R 中可视化 geojson

Cannot visualize geojson in R using leaflet package

r

geojson

leaflet