From b1d580b7b1448e391b5ce4ef2308d331ccaaf71c Mon Sep 17 00:00:00 2001
From: "ronan.vignard" <ronan.vignard@developpement-durable.gouv.fr>
Date: Mon, 3 Feb 2025 17:25:17 +0100
Subject: [PATCH] =?UTF-8?q?Renommage=20du=20dataframe=20enrichi=20pour=20?=
=?UTF-8?q?=C3=A9viter=20les=20confusions?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
dev/flat_insert_data_ars.Rmd | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/dev/flat_insert_data_ars.Rmd b/dev/flat_insert_data_ars.Rmd
index 02ff603..dc97f0a 100644
--- a/dev/flat_insert_data_ars.Rmd
+++ b/dev/flat_insert_data_ars.Rmd
@@ -63,7 +63,7 @@ r_station_mesure_p_2024_r52 <- datalibaba::importer_data(
On ajoute les variables `source` et `code_support` :
```{r add_source_code_support, eval=FALSE}
# Ajouter les variables source et code_support
-nitrate_data_analyse_ars <- nitrate_data_analyse_ars |>
+nitrate_prelevement_analyse_ars <- nitrate_data_analyse_ars |>
dplyr::mutate(
source = "ARS",
code_support = 3
@@ -73,14 +73,14 @@ nitrate_data_analyse_ars <- nitrate_data_analyse_ars |>
On remplace "h" par ":" dans la variable `plv_heure` :
```{r replace_in_plv_heure, eval=FALSE}
# Remplacer "h" par ":" dans la colonne plv_heure
-nitrate_data_analyse_ars <- nitrate_data_analyse_ars |>
+nitrate_prelevement_analyse_ars <- nitrate_prelevement_analyse_ars |>
dplyr::mutate(plv_heure = stringr::str_replace_all(plv_heure, "h", ":"))
```
On supprime les enregistrements correspondants à des totaux :
```{r filter_param_nom_ars, eval=FALSE}
# Supprimer les lignes ne correspondant pas à une analyse
-nitrate_analyse_ars <- nitrate_data_analyse_ars |>
+nitrate_prelevement_analyse_ars <- nitrate_prelevement_analyse_ars |>
dplyr::filter(!stringr::str_starts(param_nom, "Total"))
```
@@ -88,7 +88,7 @@ nitrate_analyse_ars <- nitrate_data_analyse_ars |>
On remplace les chaînes de caractère par NA dans la variable `ana_param_alpha_resultat` :
```{r replace_strings_with_na, eval=FALSE}
# Remplacer chaînes de caractère dans la colonne ana_param_alpha_resultat
-nitrate_analyse_ars <- nitrate_analyse_ars |>
+nitrate_prelevement_analyse_ars <- nitrate_prelevement_analyse_ars |>
dplyr::mutate(
ana_param_alpha_resultat = dplyr::case_when(
ana_param_alpha_resultat %in% c("TRACES", "PRESENCE", "SEUIL", "ILLISIBL", "N.M.", "O", "?", ",", " ") ~ NA_character_,
@@ -101,7 +101,7 @@ nitrate_analyse_ars <- nitrate_analyse_ars |>
On remplace des valeurs dans ana_param_alpha_resultat et param_code:
```{r replace_dot_ana_param_alpha_resultat, eval=FALSE}
# Remplacer les valeurs dans les colonnes ana_param_alpha_resultat et param_code
-nitrate_analyse_ars <- nitrate_analyse_ars |>
+nitrate_prelevement_analyse_ars <- nitrate_prelevement_analyse_ars |>
dplyr::mutate(
ana_param_alpha_resultat = stringr::str_replace(ana_param_alpha_resultat, "\\,", "."),
param_code = stringr::str_replace(param_code, "NO3", "1340")
@@ -112,7 +112,7 @@ nitrate_analyse_ars <- nitrate_analyse_ars |>
On affecte le code_remarque et la valeur des variables resultat_analyse et limite_quantification :
```{r mutate_from_ana_param_alpha_resultat, eval=FALSE}
# Ajouter les colonnes code_remarque, resultat_analyse et limite_quantification
-nitrate_analyse_ars <- nitrate_analyse_ars |>
+nitrate_prelevement_analyse_ars <- nitrate_prelevement_analyse_ars |>
dplyr::mutate(
# Ajout de la colonne code_remarque selon la condition spécifiée
code_remarque = dplyr::case_when(
@@ -121,7 +121,7 @@ nitrate_analyse_ars <- nitrate_analyse_ars |>
),
# Renommage conditionnel des colonnes
resultat_analyse = dplyr::case_when(
- stringr::str_starts(ana_param_alpha_resultatdev, "<") ~ as.character(ana_param_valeur_traduite),
+ stringr::str_starts(ana_param_alpha_resultat, "<") ~ as.character(ana_param_valeur_traduite),
TRUE ~ ana_param_alpha_resultat
),
limite_quantification = dplyr::case_when(
@@ -135,7 +135,7 @@ nitrate_analyse_ars <- nitrate_analyse_ars |>
On sélectionne les champs utiles à la table des prélèvements et analyse :
```{r select_variables, eval=FALSE}
# Sélectionner les variables
-nitrate_data_analyse_ars <- nitrate_data_analyse_ars |>
+nitrate_prelevement_analyse_ars <- nitrate_prelevement_analyse_ars |>
dplyr::select(code_intervenant = geo_dept_ddass_gest_code,
source,
code_station = ins_code_national,
--
GitLab