Histogramme des profondeurs par faciès (ASPE)

Source: R/plot_facies_profondeur_histogram.R

NE FONCTIONNE PAS CAR BUG SOUS HUBEAU

plot_facies_profondeur_histogram(
  yaml_path,
  code_station = NULL,
  code_point_prelevement_aspe = NULL,
  annee_debut = 1950,
  annee_fin = as.integer(format(Sys.Date(), "%Y")),
  n_last = 10,
  titre = "Profondeurs par faciès"
)

Arguments

yaml_path

character(1) Chemin vers le fichier YAML contenant les informations de connexion PostgreSQL.

code_station

character(1) Code Sandre de la station. Si renseigné conjointement avec code_point_prelevement_aspe, il est prioritaire (avec warning).

code_point_prelevement_aspe

character(1) Code du point ASPE si code_station n'est pas fourni.

annee_debut

numeric(1) Année minimale des opérations à prendre en compte (défaut : 1950).

annee_fin

numeric(1) Année maximale des opérations (défaut : année courante).

n_last

integer(1) Nombre de dernières dates d’opérations (distinctes) à représenter.

titre

character(1) Titre du graphique.

Value

Un objet ggplot2 représentant un histogramme des profondeurs par faciès. Retourne NULL si aucune donnée n’est disponible.

Details

Cette fonction interroge la base ASPE via un fichier YAML de connexion et extrait les champs facies_profondeur_moyenne et facies_libelle_type issus de la table qe.aspe_operations.

Les profondeurs moyennes de faciès (facies_profondeur_moyenne) sont nettoyées en supprimant le préfixe "\x", puis scindées en profondeur(s) unitaires en coupant avant chaque point, conformément au format observé (par ex. "\x0.097.19" devient c("0.09","7.19")).

Les libellés de faciès (facies_libelle_type) sont également nettoyés (suppression des espaces, de "\x", puis découpage sur les lettres majuscules). Tous les faciès dont l'intitulé correspond à une forme de “Profond” (ex. Profonds, Profonde, ProfondeS) sont harmonisés en "Profond".

Après association entre profondeurs et faciès pour chaque date, la fonction génère un histogramme où chaque date comporte autant de barres que de faciès présents. Les couleurs appliquées sont :

  • Courant = "#6D76F8"

  • Plat = "#7FDD4C"

  • Profond = "#C72C48"

Les dates (opérations ASPE) sont affichées au format %d/%m/%y, ordonnées chronologiquement, et pivotées de 90° pour faciliter la lecture.

La fonction interroge la table qe.aspe_operations. Elle nettoie et transforme les champs facies_profondeur_moyenne et facies_libelle_type afin de représenter graphiquement les profondeurs par faciès pour chaque date sélectionnée.

Les barres sont affichées en position dodge (côte à côte) pour permettre de comparer les faciès au sein d'une même date.

Examples

if (FALSE) { # \dontrun{
plot_facies_profondeur_histogram(
  yaml_path = "config/connexion.yml",
  code_station = "04216000",
  annee_debut = 2010,
  n_last = 12
)
} # }