Skip to content
Snippets Groups Projects
Commit b116d1d8 authored by Daniel.Kalioudjoglou's avatar Daniel.Kalioudjoglou
Browse files

modification sous titre et indications sur graphiques

parent d9b64403
No related branches found
No related tags found
1 merge request!13modification sous titre et indications sur graphiques
Pipeline #220659 failed
...@@ -26,8 +26,19 @@ creer_graphique_evolution_trim <- function(data = indic_ecln, ...@@ -26,8 +26,19 @@ creer_graphique_evolution_trim <- function(data = indic_ecln,
dplyr::pull(.data$Periode) dplyr::pull(.data$Periode)
max_date <- max(per) max_date <- max(per)
num_trimestre <- as.numeric(lubridate::quarter(max_date))
rang_trimestre <- if( num_trimestre == 1){
"Premier"
}else if( num_trimestre == 2){
"Deuxième"
}else if( num_trimestre == 3){
"Troisième"
}else{
"Quatrième"
}
sous_titre <- glue::glue("Au {label_rang(lubridate::quarter(max_date))} trimestre {lubridate::year(max_date)}") # sous_titre <- glue::glue("Au {label_rang(lubridate::quarter(max_date))} trimestre {lubridate::year(max_date)}")
sous_titre <- glue::glue("{rang_trimestre} trimestre {lubridate::year(max_date)}")
label <- data %>% label <- data %>%
dplyr::filter( dplyr::filter(
.data$Zone == zone, .data$Zone == zone,
...@@ -49,9 +60,13 @@ creer_graphique_evolution_trim <- function(data = indic_ecln, ...@@ -49,9 +60,13 @@ creer_graphique_evolution_trim <- function(data = indic_ecln,
format(round(.data$TauxEvolution12Mois, 1), big.mark = " ", decimal.mark = ","), format(round(.data$TauxEvolution12Mois, 1), big.mark = " ", decimal.mark = ","),
" %" " %"
), ),
# label = ifelse(.data$TypeIndicateur %in% c("Valeur trimestrielle"),
# FormatCaractere(.data$Periode),
# "Moyenne\nannuelle"
# )
label = ifelse(.data$TypeIndicateur %in% c("Valeur trimestrielle"), label = ifelse(.data$TypeIndicateur %in% c("Valeur trimestrielle"),
FormatCaractere(.data$Periode), "Valeur\ntrimestrielle",
"Moyenne\nannuelle" "Moyenne\nannuelle"
) )
) )
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
\alias{indic_ecln} \alias{indic_ecln}
\title{Table contenant les différents indicateurs de la source ecln utiles pour la publication.} \title{Table contenant les différents indicateurs de la source ecln utiles pour la publication.}
\format{ \format{
Table de 91884 lignes et 9 colonnes: Table de 91884 lignes et 10 colonnes:
\describe{ \describe{
\item{TypeZone}{Type de territoire} \item{TypeZone}{Type de territoire}
\item{CodeZone}{Code du territoire} \item{CodeZone}{Code du territoire}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment