From fa846f8eed357eaba57620b15da3bd63c37e3844 Mon Sep 17 00:00:00 2001
From: Daniel Kalioudjoglou
<daniel.kalioudjoglou@developpement-durable.gouv.fr>
Date: Wed, 29 May 2024 14:59:40 +0200
Subject: [PATCH] pinaillages phase 2
---
R/creer_graphique_evolution_annuelle.R | 4 +-
R/creer_graphique_series_temporelles_prix.R | 14 +++----
R/creer_tableau_synthese_annuelle.R | 10 ++---
R/creer_tableau_synthese_trimestrielle.R | 10 ++---
dev/config_attachment.yaml | 12 ------
.../ecln_conjoncture/skeleton/footer.html | 2 +-
.../ecln_conjoncture/skeleton/skeleton.Rmd | 42 +++++++++----------
7 files changed, 41 insertions(+), 53 deletions(-)
delete mode 100644 dev/config_attachment.yaml
diff --git a/R/creer_graphique_evolution_annuelle.R b/R/creer_graphique_evolution_annuelle.R
index 6137d6d..1bc427e 100644
--- a/R/creer_graphique_evolution_annuelle.R
+++ b/R/creer_graphique_evolution_annuelle.R
@@ -72,14 +72,14 @@ creer_graphique_evolution_annuelle <- function(data = indic_ecln,
position = position_dodge(0.9),
color = "white",
fill = "grey",
- alpha = .2,
+ alpha = 0.2,
fontface = "bold",
hjust = 1.2
) +
ggplot2::scale_y_continuous(labels = scales::format_format(big.mark = " ")) +
gouvdown::scale_fill_gouv_discrete(palette = "pal_gouv_qual2") +
ggplot2::labs(
- title = titre, subtitle = "R\u00e9alis\u00e9es sur les 12 derniers mois", x = "Trimestre", y = "",
+ title = titre, subtitle = "r\u00e9alis\u00e9es sur les 12 derniers mois", x = "Trimestre", y = "",
caption = bas_de_page, fill = ""
)
if (type_facet == "classique") {
diff --git a/R/creer_graphique_series_temporelles_prix.R b/R/creer_graphique_series_temporelles_prix.R
index d3b3f37..15d6e46 100644
--- a/R/creer_graphique_series_temporelles_prix.R
+++ b/R/creer_graphique_series_temporelles_prix.R
@@ -56,13 +56,13 @@ creer_graphique_series_temporelles_prix <- function(data = indic_ecln,
)
) +
ggplot2::geom_line(size = 1.2) +
- ggplot2::geom_point(data = data %>%
- dplyr::filter(
- .data$Indicateur %in% indic,
- .data$TypeIndicateur == type_indicateur,
- .data$TypeZone %in% type_zone,
- .data$Periode == max(.data$Periode)
- )) +
+ # ggplot2::geom_point(data = data %>%
+ # dplyr::filter(
+ # .data$Indicateur %in% indic,
+ # .data$TypeIndicateur == type_indicateur,
+ # .data$TypeZone %in% type_zone,
+ # .data$Periode == max(.data$Periode)
+ # )) +
ggplot2::theme(legend.position = "none",
axis.line = element_line(colour = "black",
size = 0.5, linetype = "solid")) +
diff --git a/R/creer_tableau_synthese_annuelle.R b/R/creer_tableau_synthese_annuelle.R
index 79e9280..010cebb 100644
--- a/R/creer_tableau_synthese_annuelle.R
+++ b/R/creer_tableau_synthese_annuelle.R
@@ -60,17 +60,17 @@ creer_tableau_synthese_annuel <- function(data = indic_ecln,
dplyr::select(2, 6, 10, 4, 8, 3, 7, 5, 9) %>%
knitr::kable("html",
col.names = c(
- "Zone", "Sur les 12 derniers mois", "Evolution sur un an (en %)",
- "Sur les 12 derniers mois", "Evolution sur un an (en %)",
- "En fin de p\u00e9riode", "Evolution sur un an (en %)",
- "Prix moyen sur les 12 derniers mois (en \u20ac)", "Evolution sur un an (en %)"
+ "Zone", "Sur les 12 derniers mois", "\u00C9volution sur un an (en %)",
+ "Au cours des 12 derniers mois", "\u00C9volution sur un an (en %)",
+ "En fin de p\u00e9riode", "\u00C9volution sur un an (en %)",
+ "Prix moyen sur les 12 derniers mois (en \u20ac)", "\u00C9volution sur un an (en %)"
),
digits = c(0, 0, 1, 0, 1, 0, 1, 0, 1),
format.args = list(big.mark = " ", decimal.mark = ",")
) %>%
kableExtra::kable_styling(font_size = 12) %>%
kableExtra::row_spec(1:2, bold = T, background = "#f0f0f5") %>%
- kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix au m2" = 2)) %>%
+ kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix au m\u00B2" = 2)) %>%
kableExtra::add_indent(c(3:nombre_zone)) %>%
kableExtra::footnote(general_title="",general = "NC : donn\u00e9es non communiqu\u00e9es (secret statistique)")
if ("ABC" %in% type_zone) {
diff --git a/R/creer_tableau_synthese_trimestrielle.R b/R/creer_tableau_synthese_trimestrielle.R
index c8da328..7451832 100644
--- a/R/creer_tableau_synthese_trimestrielle.R
+++ b/R/creer_tableau_synthese_trimestrielle.R
@@ -62,17 +62,17 @@ creer_tableau_synthese_trimestrielle <- function(data = indic_ecln,
dplyr::select(2, 6, 10, 4, 8, 3, 7, 5, 9)%>%
knitr::kable("html",
col.names = c(
- "Zone", "Sur le dernier trimestre", "Evolution sur un an (en %)",
- "Sur le dernier trimestre", "Evolution sur un an (en %)",
- "En fin de p\u00e9riode", "Evolution sur un an (en %)",
- "Prix moyen sur le dernier trimestre (en \u20ac)", "Evolution sur un an (en %)"
+ "Zone", "Sur le dernier trimestre", "\u00C9volution sur un an (en %)",
+ "Au cours du dernier trimestre", "\u00C9volution sur un an (en %)",
+ "En fin de p\u00e9riode", "\u00C9volution sur un an (en %)",
+ "Prix moyen sur le dernier trimestre (en \u20ac)", "\u00C9volution sur un an (en %)"
),
digits = c(0, 0, 1, 0, 1, 0, 1, 0, 1),
format.args = list(big.mark = " ", decimal.mark = ",")
) %>%
kableExtra::kable_styling(font_size = 12) %>%
kableExtra::row_spec(1:2, bold = T, background = "#f0f0f5") %>%
- kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix au m2" = 2)) %>%
+ kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix au m\u00B2" = 2)) %>%
kableExtra::footnote(general_title="",general = "NC : donn\u00e9es non communiqu\u00e9es (secret statistique)")
}
diff --git a/dev/config_attachment.yaml b/dev/config_attachment.yaml
deleted file mode 100644
index 46e24ec..0000000
--- a/dev/config_attachment.yaml
+++ /dev/null
@@ -1,12 +0,0 @@
-path.n: NAMESPACE
-path.d: DESCRIPTION
-dir.r: R
-dir.v: vignettes
-dir.t: tests
-extra.suggests: ~
-pkg_ignore: ~
-document: yes
-normalize: yes
-inside_rmd: no
-must.exist: yes
-check_if_suggests_is_installed: yes
diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
index 089ffd8..22e5472 100644
--- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
@@ -18,7 +18,7 @@
<p style="text-align: left;">Service connaissance des territoires et évaluation </p>
-<p style="text-align: left;">Centre de Service de la Donnée</p>
+<p style="text-align: left;">Centre de service de la donnée</p>
<p style="text-align: left;">5 rue Françoise Giroud - CS16326</p>
diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
index dd36a64..01b262b 100644
--- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
@@ -50,15 +50,15 @@ mygrid <- data.frame(
if (!params$abc) {
mygrid <- mygrid %>% dplyr::filter(!(code %in% c("Zone C", "Zone B1", "Zone B2")))
}
-caption <- "Source : ECLN - SDES\nNombre de ventes et mises en ventes \n sur les 12 derniers mois\nEncours en fin de période"
-caption_appartements <- "Source : ECLN - SDES\nNombre de ventes et mises en ventes d'appartements \n sur les 12 derniers mois\nEncours en fin de période"
-caption_maisons <- "Source : ECLN - SDES\nNombre de ventes et mises en ventes de maisons \n sur les 12 derniers mois\nEncours en fin de période \n Les résultats de la Mayenne et de la Sarthe sont soumis au secret statistique"
+caption <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente \n sur les 12 derniers mois\nEncours en fin de période"
+caption_appartements <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente d'appartements \n sur les 12 derniers mois\nEncours en fin de période"
+caption_maisons <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente de maisons \n sur les 12 derniers mois\nEncours en fin de période \n Les résultats de la Mayenne et de la Sarthe sont soumis au secret statistique"
caption_carte_appartements <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente d'appartements au cours des 12 derniers mois\nEncours en fin de période"
-caption_carte_appartements2 <- "Source : ECLN - SDES\nEvolution des ventes et des mises en vente d'appartements par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des appartements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
+caption_carte_appartements2 <- "Source : ECLN - SDES\n\u00C9volution des ventes et des mises en vente d'appartements par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des appartements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
caption_carte_maisons <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente de maisons au cours des 12 derniers mois\nEncours en fin de période"
-caption_carte_maisons2 <- "Source : ECLN - SDES\nEvolution des ventes et des mises en vente de maisons par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des appartements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
+caption_carte_maisons2 <- "Source : ECLN - SDES\n\u00C9volution des ventes et des mises en vente de maisons par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des appartements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
caption_carte_logements <- "Source : ECLN - SDES\nNombre de ventes et de mises en vente de logements au cours des 12 derniers mois\nEncours en fin de période"
-caption_carte_logements2 <- "Source : ECLN - SDES\nEvolution des ventes et des mises en vente de logements par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des logements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
+caption_carte_logements2 <- "Source : ECLN - SDES\n\u00C9volution des ventes et des mises en vente de logements par rapport aux 12 mois pr\u00e9cedents\n\u00C9volution de l'encours des logements par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
captionprix <- "Source : ECLN - SDES\nPrix moyen observé sur les 12 derniers mois\nDonn\u00e9es manquantes en raison du secret statistique : voir 'A propos'"
typezone <- c("France", "R\u00e9gions", "D\u00e9partements")
@@ -128,7 +128,7 @@ creer_tableau_synthese_annuel(
creer_graphique_evolution_annuelle(
type_logement = "logement",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente de logements neufs",
+ titre = "\u00C9volution des ventes et des mises en vente de logements neufs",
bas_de_page = caption,
type_facet = "classique"
)
@@ -141,7 +141,7 @@ options(scipen = 999)
creer_graphique_series_temporelles(
type_logement = "Logements",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente de logements neufs sur 12 mois glissants",
+ titre = "\u00C9volution des ventes et des mises en vente de logements neufs sur 12 mois glissants",
bas_de_page = caption,
type_facet = "classique"
)
@@ -153,7 +153,7 @@ creer_graphique_series_temporelles(
creer_graphique_series_temporelles_prix(
type_logement = "Logements",
type_zone = typezone,
- titre = "Evolution du prix au m2 moyen des logements neufs en euros sur 12 mois glissants",
+ titre = "\u00C9volution du prix au m\u00B2 moyen des logements neufs en euros sur 12 mois glissants",
bas_de_page = captionprix,
type_facet = "classique"
)
@@ -167,7 +167,7 @@ creer_carte_volume2(data=indic_ecln,
indicateurs = c("Encours","Mises en vente","Ventes"),
type_logement="Logements",
type_indicateur="Cumul annuel",
- titre="Volumes de ventes, mises en vente et encours de logements",
+ titre="Les valeurs absolues",
titre_legende="",
bas_de_page=caption_carte_logements)
```
@@ -178,7 +178,7 @@ creer_carte_evolution(data=indic_ecln,
indicateurs = c("Encours","Mises en vente","Ventes"),
type_logement="Logements",
type_indicateur="Cumul annuel",
- titre="Evolution des ventes, mises en vente et encours de logements",
+ titre="Les \u00E9volutions",
titre_legende="",
bas_de_page=caption_carte_logements2)
```
@@ -246,7 +246,7 @@ options(scipen = 999)
creer_graphique_evolution_annuelle(
type_logement = "collectif",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente d'appartements neufs",
+ titre = "\u00C9volution des ventes et des mises en vente d'appartements neufs",
bas_de_page = caption,
type_facet = "classique"
)
@@ -258,7 +258,7 @@ creer_graphique_evolution_annuelle(
creer_graphique_series_temporelles(
type_logement = "Appartements",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente d'appartements neufs sur 12 mois glissants",
+ titre = "\u00C9volution des ventes et des mises en vente d'appartements neufs sur 12 mois glissants",
bas_de_page = caption,
type_facet = "classique"
)
@@ -270,7 +270,7 @@ creer_graphique_series_temporelles(
creer_graphique_series_temporelles_prix(
type_logement = "Appartements",
type_zone = typezone,
- titre = "Evolution du prix au m2 moyen des appartements neufs en euros sur 12 mois glissants",
+ titre = "\u00C9volution du prix au m\u00B2 moyen des appartements neufs en euros sur 12 mois glissants",
bas_de_page = captionprix,
type_facet = "classique"
)
@@ -284,7 +284,7 @@ creer_carte_volume2(data=indic_ecln,
indicateurs = c("Encours","Mises en vente","Ventes"),
type_logement="Appartements",
type_indicateur="Cumul annuel",
- titre="Volumes de ventes, mises en vente et encours d'appartements",
+ titre="Les valeurs absolues",
titre_legende="",
bas_de_page=caption_carte_appartements)
```
@@ -296,7 +296,7 @@ creer_carte_evolution(data=indic_ecln,
indicateurs = c("Encours","Mises en vente","Ventes"),
type_logement="Appartements",
type_indicateur="Cumul annuel",
- titre="Evolution des ventes, mises en vente et encours d'appartements",
+ titre="Les \u00E9volutions",
titre_legende="",
bas_de_page=caption_carte_appartements2)
```
@@ -364,7 +364,7 @@ creer_tableau_synthese_annuel(
creer_graphique_evolution_annuelle(
type_logement = "individuel",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente de maisons neuves",
+ titre = "\u00C9volution des ventes et des mises en vente de maisons neuves",
bas_de_page = caption,
type_facet = "classique"
)
@@ -377,7 +377,7 @@ options(scipen = 999)
creer_graphique_series_temporelles(
type_logement = "Maisons",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente de maisons neuves sur 12 mois glissants",
+ titre = "\u00C9volution des ventes et des mises en vente de maisons neuves sur 12 mois glissants",
bas_de_page = caption,
type_facet = "classique"
)
@@ -389,7 +389,7 @@ creer_graphique_series_temporelles(
creer_graphique_series_temporelles_prix(
type_logement = "Maisons",
type_zone = typezone,
- titre = "Evolution du prix au m2 moyen des maisons neuves en euros sur 12 mois glissants",
+ titre = "\u00C9volution du prix au m\u00B2 moyen des maisons neuves en euros sur 12 mois glissants",
bas_de_page = captionprix,
type_facet = "classique"
)
@@ -403,7 +403,7 @@ creer_carte_volume2(data=indic_ecln,
indicateurs = c("Encours","Mises en vente","Ventes"),
type_logement="Maisons",
type_indicateur="Cumul annuel",
- titre="Volumes de ventes, mises en vente et encours de maisons",
+ titre="Les valeurs absolues",
titre_legende="",
bas_de_page=caption_carte_maisons)
```
@@ -415,7 +415,7 @@ creer_carte_evolution(data=indic_ecln,
indicateurs = c("Encours","Mises en vente","Ventes"),
type_logement="Maisons",
type_indicateur="Cumul annuel",
- titre="Evolution des ventes, mises en vente et encours de maisons",
+ titre="Les \u00E9volutions",
titre_legende="",
bas_de_page=caption_carte_maisons2)
```
--
GitLab