chronique.agregation: Agrégation de chroniques

In jbfagotfede39/aquatools: Tools for freshwater managers

Agrégation de chroniques

Description

Cette fonction permet d'agréger des chroniques de mesures (température, niveaux, etc.) à différentes fréquences (dans l'ordre : pas d'agrégation, jours, mois, années, chronique complète)

Usage

chronique.agregation(
  data = data,
  projet = NA_character_,
  instantanne = TRUE,
  quotidien = TRUE,
  mensuel = TRUE,
  annuel = TRUE,
  integral = TRUE,
  complement = FALSE,
  datedebutanneebiol = "10-01",
  export = FALSE
)

Arguments

data	Data.frame contenant a minima une colonne chmes_date, une colonne chmes_heure et une colonne chmes_valeur
projet	Nom du projet
instantanne	Si TRUE (par défaut), sortie des données instantannées
quotidien	Si TRUE (par défaut), agrégation journalière
mensuel	Si TRUE (par défaut), agrégation mensuelle
annuel	Si TRUE (par défaut), agrégation annuelle
integral	Si TRUE (par défaut), agrégation sur l'intégralité de la chronique
complement	Si TRUE, complément de la chronique avec les données manquantes (FALSE par défaut). Uniquement pour les valeurs journalières
datedebutanneebiol	Date de démarrage de l'année biologique : 10-01 (par défaut - 1er octobre)
export	Si TRUE, exporte les résultats (FALSE par défaut)

Examples

DataTravail <- chronique.agregation(data)
DataTravail[[1]];DataTravail[[2]];DataTravail[[3]];DataTravail[[4]];DataTravail[[5]]
DataTravail %>% purrr::pluck(2)
chronique.agregation() %>% magrittr::extract2(2)
chronique.agregation(instantanne = F, mensuel = F, annuel = F, integral = F)
chronique.agregation(data, export = T) # Export sous forme de fichier excel avec 5 onglets
Mesures %>% group_split(chmes_coderhj) %>% purrr::map_dfr(~ chronique.agregation(., instantanne = F, mensuel = F, annuel = F, integral = F)) %>% 
Mesures %>% group_split(chmes_coderhj) %>% purrr::map_dfr(~ chronique.agregation(.) %>% purrr::pluck(2))
for(i in 1:length(mesures_agregees_completes)) { # Afin de regrouper les données journalières après un traitement intégral exporté et stocké
if(i == 1) mesures_agregees_journalieres <- mesures_agregees_completes[[c(1, 2)]]
 if(i != 1){
  mesures_agregees_journalieres <- 
    mesures_agregees_journalieres %>% 
    union(mesures_agregees_completes[[c(i, 2)]])
}
}

jbfagotfede39/aquatools documentation built on Jan. 22, 2025, 1:20 p.m.