produire_graph_pour_une_station_v2: Produire graphique historique pour station (nouvelle...

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

Produire graphique historique pour station (nouvelle version!)

Description

Nouvelle version de la fonction pour produire un graphique à la station de l'historique des écoulements. Celle-ci permet d'utiliser les données téléchargées issues de l'API et de pouvoir représenter, à la fois, les campagnes usuelles et complémentaires sur le même graphique. Il est également possible d'utiliser la typologie départementale.

Usage

produire_graph_pour_une_station_v2(
  station_vec,
  onde_df,
  type_mod,
  mod_levels,
  mod_colors
)

Arguments

station_vec	identifiant de la station à représenter graphiquement (colonne code_station)
onde_df	un tableau de données onde téléchargé avec la fonction telecharger_donnees_onde_api
type_mod	nom de colonne choisie définissant la variable écoulement
mod_levels	vecteur définissant les noms de modalités d'écoulement. Doit correspondre aux valeurs retrouvées dans la colonne type_mod
mod_colors	vecteur de couleur nommé qui associe à chacune des modalités d'observation une couleur.

Value

un graphique ggplot2 pour l'historique des observations à la station avec les différentes campagnes (usuelles et complémentaires)

Examples

## Not run: 
onde_14 <- telecharger_donnees_onde_api(dpt = c('14'))

onde_periode <-
  onde_14 %>%
  dplyr::mutate(
    Annee = as.numeric(Annee),
    Mois = format(as.Date(date_campagne), "%m"),
    Mois_campagne = lubridate::ym(paste0(Annee,Mois,sep="-"))
  ) %>%
  dplyr::mutate(
    libelle_ecoulement = dplyr::case_when(
      libelle_ecoulement == 'Ecoulement visible' ~ 'Ecoulement visible acceptable',
      TRUE ~ libelle_ecoulement
    )
  )

produire_graph_pour_une_station_v2(station_vec = onde_periode$code_station[1],
                                type_mod = libelle_ecoulement,
                                onde_df = onde_periode,
                                mod_levels = c("Assec",
                                               "Ecoulement\nnon visible",
                                               "Ecoulement\nvisible\nfaible",
                                               "Ecoulement\nvisible\nacceptable",
                                               "Observation\nimpossible",
                                               "Donnée\nmanquante"),
                                mod_colors = onde_5mod

)

## End(Not run)

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