feat: Suisse donnee religion par commune

R/data_doc_oc_suisse.R

@@ -38,3 +38,19 @@
 #' }
 #' @source <https://www.pxweb.bfs.admin.ch/pxweb/fr/px-x-0103010000_151/-/px-x-0103010000_151.px/>
 "oc_suisse_2021_immigration_italienne"
+
+#' Religion par commune
+#'
+#' Un tableau avec le pourcentage des religions par commune
+#' en Suisse en 2000. Oui c'est vieux, mais visiblement l'OFS
+#' n'a pas de données après le dernier recensement...
+#'
+#' @format Un tibble avec 4 colonnes et 55024 lignes
+#' \describe{
+#'   \item{ID}{Identifiant de la commune}
+#'   \item{Commune}{Nom de la commune}
+#'   \item{Religion}{Religion}
+#'   \item{Pourcentage}{Pourcentage}
+#' }
+#' @source <https://www.pxweb.bfs.admin.ch/pxweb/fr/px-x-0103010000_151/-/px-x-0103010000_151.px/>
+"oc_suisse_2000_religion"

data-raw/oc_suisse.R

@@ -1,13 +1,13 @@
 stop("This file should not be sourced!")
 
-# Suffrage féminin --------------------------------------------------------
+# Suffrage féminin -------------------------------------------------------
 
 oc_suisse_suffrage_feminin <- readr::read_csv(here::here("inst/extdata/oc_suisse/misc/suffrage_feminin.csv"))
 
 usethis::use_data(oc_suisse_suffrage_feminin, overwrite = TRUE)
 
 
-# Votation suffrage féminin VS --------------------------------------------
+# Votation suffrage féminin VS -------------------------------------------
 
 oc_suisse_1970_04_12_suffrage_feminin_vs <- readr::read_csv(
   here::here("inst/extdata/oc_suisse/misc/1970-04-12_suffrage_feminin_vs.csv")
@@ -16,7 +16,7 @@ oc_suisse_1970_04_12_suffrage_feminin_vs <- readr::read_csv(
 usethis::use_data(oc_suisse_1970_04_12_suffrage_feminin_vs, overwrite = TRUE)
 
 
-# Immigration italienne 1981-2019 -----------------------------------------
+# Immigration italienne 1981-2019 ----------------------------------------
 
 tidyxl::xlsx_cells(
   here::here("inst/extdata/oc_suisse/ofs/population/px-x-0103010000_151_20210107-202901.xlsx"),
@@ -36,6 +36,21 @@ tidyxl::xlsx_cells(
 usethis::use_data(oc_suisse_2021_immigration_italienne, overwrite = TRUE)
 
 
-# Open documentation file -------------------------------------------------
+# Religion 2020 ----------------------------------------------------------
+
+readr::read_csv("inst/extdata/oc_suisse/ofs/religion/religion_2000.csv") |>
+  dplyr::rename(Commune = 1) |>
+  dplyr::filter(stringr::str_detect(Commune, "\\.{6}")) |>
+  tidyr::extract(Commune, into = c("ID", "Commune"), regex = "\\.{6}(\\d{4})\\s(.*)") |>
+  dplyr::mutate(ID = readr::parse_integer(ID)) |>
+  dplyr::rowwise() |>
+  dplyr::mutate(Total = sum(dplyr::c_across(-c(ID, Commune)), na.rm = TRUE)) |>
+  dplyr::mutate(dplyr::across(-c(ID, Commune), ~ round(. / Total * 100, 2))) |>
+  dplyr::ungroup() |>
+  tidyr::pivot_longer(-c(ID, Commune), names_to = "Religion", values_to = "Pourcentage") -> oc_suisse_2000_religion
+
+usethis::use_data(oc_suisse_2000_religion, overwrite = TRUE)
+
+# Open documentation file ------------------------------------------------
 
 usethis::edit_file(here::here("R/data_doc_oc_suisse.R"))