produire_graph_type_ecoulement: Produire le graphique bilan des écoulements

In PascalIrz/ondetools: Package R pour traiter les données ONDE de suivi des étiages en France

Produire le graphique bilan des écoulements

Description

Produire le graphique bilan des écoulements

Usage

produire_graph_type_ecoulement(data_bilan, lib_ecoulement, historique = FALSE)

Arguments

data_bilan	un dataframe comprenant les différents types d'écoulement observés. Peut être calculé avec la fonction calculer_bilan_ecoulement
lib_ecoulement	la colonne contenant la variable des types écoulement
historique	booléen. Si FALSE, représente le graphique pour la dernière année en cours (année maximum des données). Si TRUE, représente le graphique résumant l'historique pour toutes les années.

Value

un graphique avec ggplot2

Examples

## Not run: 
# Exemple bilan typologie départementale campagnes usuelles pour le 27
data_bilan_ecoulement <-
  calculer_bilan_ecoulement(onde_df = onde_df,
                            mod = lib_ecoul,
                            mod_levels = c("Ecoulement visible acceptable",
                                           "Ecoulement visible faible",
                                           "Ecoulement non visible",
                                           "Assec",
                                           "Observation impossible",
                                           "Donnée manquante"),
                            referentiel_onde = "Typologie départementale",
                            force_complementaire = F) %>%
  dplyr::filter(code_departement == 27)

## graph bilan de l'année en cours
produire_graph_type_ecoulement(data_bilan = data_bilan_ecoulement,
                               lib_ecoulement = lib_ecoul,
                               historique = F)

## graph bilan de toutes les années
produire_graph_type_ecoulement(data_bilan = data_bilan_ecoulement,
                               lib_ecoulement = lib_ecoul,
                               historique = T)

# Exemple bilan typologie nationale TOUTES campagnes pour le 27
data_bilan_ecoulement <-
  calculer_bilan_ecoulement(onde_df = onde_df,
                            mod = lib_ecoul,
                            mod_levels = c("Ecoulement visible",
                                           "Ecoulement non visible",
                                           "Assec",
                                           "Observation impossible",
                                           "Donnée manquante"),
                            referentiel_onde = "Typologie nationale",
                            force_complementaire = T) %>%
  dplyr::filter(code_departement == 27)

produire_graph_type_ecoulement(data_bilan = data_bilan_ecoulement,
                               lib_ecoulement = lib_ecoul,
                               historique = F)
  
## End(Not run)

PascalIrz/ondetools documentation built on March 23, 2024, 5:34 a.m.