(Acest articol a fost publicat pentru prima dată pe r.iresmi.netși cu amabilitate a contribuit la R-bloggeri). (Puteți raporta problema legată de conținutul acestei pagini aici)
Doriți să vă distribuiți conținutul pe R-bloggeri? dați clic aici dacă aveți un blog, sau aici dacă nu aveți.
Ziua 4 din 30DayMapChallenge: „Datele mele” (anterior).
Unde sunt datele mele? Parțial într-un centru de date; probabil și cu datele tale… Deci, unde sunt?
library(dplyr) library(purrr) library(sf) library(osmdata) library(glue) library(leaflet)
Trimitem o interogare API Overpass cu {osmdata}:
# Get and cache OSM data for France
if (!file.exists("dc.rds")) {
dc <- getbb("France métropolitaine") |>
opq(osm_types = "nw", timeout = 6000) |>
add_osm_features(features = list(
"telecom" = "data_center",
"building" = "data_center")) |>
osmdata_sf()
saveRDS(dc, "dc.rds")
} else {
dc <- readRDS("dc.rds")
}
Cu siguranță există mai mult decât centre de date (echipamente de telecomunicații, de exemplu, cred), dar sunt de acord cu asta…
Hartă
dc |>
pluck("osm_points") |>
bind_rows(dc |>
pluck("osm_polygons") |>
st_centroid()) |>
leaflet() |>
addTiles() |>
addCircleMarkers(
clusterOptions = markerClusterOptions(),
popup = ~glue("{name}
{operator}"))
