feat: add municipal data for Russia from 1990 to 2023

R/data_doc_oc_russie.R

@@ -207,6 +207,22 @@
 #' @source <https://showdata.gks.ru/>
 "oc_russie_2020_population_municipale"
 
+#' Population municipale en Russie
+#'
+#' Un tableau de la population municipale en Russie
+#' de 1990 à 2023.
+#'
+#' @format Un tibble avec 5 colonnes et 2806 lignes
+#' \describe{
+#'   \item{codes}{OKTMO Codes}
+#'   \item{region}{Nom de la région en russe}
+#'   \item{adm1_code}{Identifiant ADM1 (pour NaturalEarth)}
+#'   \item{year}{Année}
+#'   \item{pop}{Population}
+#' }
+#' @source <https://showdata.gks.ru/report/278930>
+"oc_russie_2023_population"
+
 #' Évolution de la population en Russie
 #'
 #' Un tableau de l'évolution de la population en Russie

data-raw/oc_russie.R

@@ -393,6 +393,37 @@ pop_evol_interm |>
 
 usethis::use_data(oc_russie_2020_evolution_population, overwrite = TRUE)
 
+readxl::read_excel(
+  here::here("inst/extdata/oc_russie/rosstat/population/2024_population.xlsx"),
+  skip = 4L,
+  col_names = c("region", "codes", 1990:2023),
+) |>
+  dplyr::select(-region) |>
+  dplyr::mutate(
+    adm1_code = geotools::gtl_admin_code(
+      codes,
+      origin = "oktmo",
+      destination = "adm1",
+      warn = FALSE,
+      country = "Russia"
+    ),
+    region = geotools::gtl_admin_code(
+      codes,
+      origin = "oktmo",
+      destination = "region.name.en",
+      warn = FALSE,
+      country = "Russia"
+    )
+  ) |>
+  tidyr::drop_na(region) |>
+  tidyr::pivot_longer(
+    tidyselect::num_range("", 1990:2023),
+    names_to = "year",
+    values_to = "pop"
+  ) |>
+  tidyr::drop_na(pop) -> oc_russie_2023_population
+
+usethis::use_data(oc_russie_2023_population, overwrite = TRUE)
 
 # Mariages ----------------------------------------------------------------