(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 8 din 30DayMapChallenge: « Urban » (anterior).
Baza de date unități urbane franceze de la INSEE.
Conceptul de unitate urbană se bazează pe suprafețe construite continue și dimensiunea populației. Unitățile urbane sunt definite (…) după cum urmează: un municipiu sau un grup de municipii cu o suprafață construită continuă (fără distanță mai mare de 200 de metri între două clădiri) și o populație de cel puțin 2.000 de locuitori.
library(sf)
library(dplyr)
library(ggplot2)
library(glue)
library(ggspatial)
library(ggokabeito)
# move DROM
# we use a function defined previously
source(glue("../../2023/where_and_when_not_to_eat_in_france/translation.R"),
encoding = "UTF-8")
Date
# administrative units
# https://r.iresmi.net/posts/2021/simplifying_polygons_layers/results/adminexpress_simpl_2022.zip
reg <- read_sf("~/data/adminexpress/adminexpress_cog_simpl_000_2022.gpkg",
layer = "region") |>
translater_drom(type = "reg")
dep <- read_sf("~/data/adminexpress/adminexpress_cog_simpl_000_2022.gpkg",
layer = "departement")
# Get the data directly from INSEE
download.file("https://www.insee.fr/fr/statistiques/fichier/4802589/fonds_uu2020_2025.zip",
"fonds_uu2020_2025.zip")
unzip("fonds_uu2020_2025.zip")
unzip("fonds_uu2020_2025/uu2020_2025.zip")
unlink("fonds_uu2020_2025", recursive = TRUE)
uu <- read_sf("uu2020_2025.shp") |>
st_join(dep, largest = TRUE) |>
translater_drom() |>
mutate(type_en = case_match(type,
"Agglomération inter-départementale" ~
"Interdepartmental agglomeration",
"Agglomération inter-régionale" ~
"Interregional agglomeration",
"Agglomération internationale" ~
"International agglomeration",
"Agglomération intra-départementale" ~
"Intradepartmental agglomeration",
"Ville isolée ou unité urbaine monocommunale" ~
"Isolated city or single-municipality urban unit"))
Hartă
uu |>
ggplot() +
geom_sf(data = reg, fill = "#f0f0f0", color = "grey") +
geom_sf(aes(color = type_en, fill = type_en)) +
scale_color_okabe_ito() +
scale_fill_okabe_ito() +
guides(fill = guide_legend(ncol = 2),
color = guide_legend(ncol = 2)) +
labs(title = "Urban units",
subtitle = "France",
fill = "type",
color = "type",
caption = glue("https://r.iresmi.net/ - {Sys.Date()}
data: INSEE 2020 (2025 edition) & IGN Admin Express 2022")) +
annotation_scale(height = unit(1, "mm"), bar_cols = c("white", "grey")) +
theme_void() +
theme(plot.caption = element_text(size = 6,
color = "darkgrey"),
legend.position = "bottom")
Figura 1: Unități urbane franceze (2020)
