無法使用 leaflet package 在 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

唉，它不工作。 我沒有收到錯誤消息，但我也沒有收到帶有自治市邊界的 map。 有人可以向我指出我做錯了什么嗎？

Answer 1

addGeoJSON function 期待 geojson object 但 jsolite::fromJSON 返回一個列表。 這應該有效：

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