From a86360e3bc0717fad2908e47740c5f906e63e8ff Mon Sep 17 00:00:00 2001
From: Denis DOUILLARD <denis.douillard@developpement-durable.gouv.fr>
Date: Wed, 19 Jun 2024 16:36:13 +0200
Subject: [PATCH] =?UTF-8?q?Modification=20de=20la=20mise=20en=20forme=20du?=
=?UTF-8?q?=20document=20(harmonisation=20des=20couleurs,=20...),=20d?=
=?UTF-8?q?=C3=A9veloppement=20de=20l'annexe=20et=20retricotage=20de=20la?=
=?UTF-8?q?=20publi=20du=202024T1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/creer_carte.R | 37 +++++------
R/creer_graphique_evolution_annuelle.R | 6 +-
R/creer_graphique_evolution_trim.R | 31 +++++----
R/creer_graphique_series_temporelles.R | 6 +-
R/creer_graphique_series_temporelles_prix.R | 2 +-
R/creer_tableau_synthese_annuelle.R | 2 +-
R/creer_tableau_synthese_trimestrielle.R | 2 +-
.../ecln_conjoncture/skeleton/footer.html | 9 ++-
.../ecln_conjoncture/skeleton/header_2.html | 18 +++++
.../ecln_conjoncture/skeleton/skeleton.Rmd | 66 ++++++++++++++-----
10 files changed, 118 insertions(+), 61 deletions(-)
create mode 100644 inst/rmarkdown/templates/ecln_conjoncture/skeleton/header_2.html
diff --git a/R/creer_carte.R b/R/creer_carte.R
index 4c41158..2ae2dd6 100644
--- a/R/creer_carte.R
+++ b/R/creer_carte.R
@@ -174,21 +174,21 @@ creer_carte_evolution<-function(data=indic_ecln,
labels=c(
paste("Inf\u00e9rieur \u00e0",round(bks[2],0),"%"),
paste("De",round(bks[2],0),"% \u00e0",round(bks[3],0),"% inclus"),
- paste("De",round(bks[3],0),"% \u00e0",round(bks[4],0),"% inclus"),
- paste("De",round(bks[4],0),"% \u00e0",round(bks[5],0),"% inclus"),
- paste("Plus de",round(bks[5],0),"%")),
+ paste("De",round(bks[3],0),"% \u00e0 +",round(bks[4],0),"% inclus"),
+ paste("De +",round(bks[4],0),"% \u00e0 +",round(bks[5],0),"% inclus"),
+ paste("Plus de +",round(bks[5],0),"%")),
# labels=c("-10%","0%","10%","50%",""),
ordered_result = T,include.lowest = T),
- TauxEvolution12Moisc=forcats::fct_explicit_na(.data$TauxEvolution12Moisc,na_level="Secret statistique\nou non significatif"),
+ TauxEvolution12Moisc=forcats::fct_explicit_na(.data$TauxEvolution12Moisc,na_level="Secret statistique ou\n\u00e9volution non significative"),
epci_reg = .data$EPCI %in% epci_reg,
indicateur_positif = .data$Valeur>0)
- liste_facteurs <- c("Pas d\'activit\u00e9",levels(data_prep$TauxEvolution12Moisc))
+ liste_facteurs <- c("Aucune activit\u00e9",levels(data_prep$TauxEvolution12Moisc))
data_prep<-data_prep %>%
dplyr::mutate(TauxEvolution12Moisc= dplyr::case_when(
- .data$TauxEvolution12Mois == Inf ~ "Secret statistique\nou non significatif",
- .data$TauxEvolution12Mois == "NaN" ~ "Pas d\'activit\u00e9",
+ .data$TauxEvolution12Mois == Inf ~ "Secret statistique ou\n\u00e9volution non significative",
+ .data$TauxEvolution12Mois == "NaN" ~ "Aucune activit\u00e9",
TRUE ~ .data$TauxEvolution12Moisc )) %>%
dplyr::mutate(Indicateur = forcats::fct_drop(.data$Indicateur),
Indicateur = forcats::fct_relevel(.data$Indicateur,"Ventes - Appartements",
@@ -201,11 +201,11 @@ creer_carte_evolution<-function(data=indic_ecln,
.[, 1]) #garde la 1ere valeur
color<-c("white",
- gouvdown::gouv_palettes$pal_gouv_m[4],
- gouvdown::gouv_palettes$pal_gouv_m[3],
- gouvdown::gouv_palettes$pal_gouv_m[2],
- gouvdown::gouv_palettes$pal_gouv_m[1],
- gouvdown::gouv_palettes$pal_gouv_q[2],
+ gouvdown::gouv_palettes$pal_gouv_f[5],
+ gouvdown::gouv_palettes$pal_gouv_f[4],
+ gouvdown::gouv_palettes$pal_gouv_f[3],
+ gouvdown::gouv_palettes$pal_gouv_f[2],
+ gouvdown::gouv_palettes$pal_gouv_f[1],
"dark grey")
fond_carte <- mapfactory::fond_carto(nom_reg = COGiter::nom_zone("R\u00e9gions",code_region))
@@ -290,13 +290,12 @@ creer_carte_volume2<-function(data=indic_ecln,
# color<-c(rev(gouvdown::gouv_palettes$pal_gouv_m[1:nlevels(data_prep$TauxEvolution12Moisc)-1]),"dark grey")
# color<-c(rev(gouvdown::gouv_palettes$pal_gouv_m[2:5]),gouvdown::gouv_palettes$pal_gouv_q[2],"dark grey")
color<-c("white",
- gouvdown::gouv_palettes$pal_gouv_m[4],
- gouvdown::gouv_palettes$pal_gouv_m[3],
- gouvdown::gouv_palettes$pal_gouv_m[2],
- gouvdown::gouv_palettes$pal_gouv_m[1],
- gouvdown::gouv_palettes$pal_gouv_q[2],
+ gouvdown::gouv_palettes$pal_gouv_f[5],
+ gouvdown::gouv_palettes$pal_gouv_f[4],
+ gouvdown::gouv_palettes$pal_gouv_f[3],
+ gouvdown::gouv_palettes$pal_gouv_f[2],
+ gouvdown::gouv_palettes$pal_gouv_f[1],
"dark grey")
-
# color<-c(rev(gouvdown::gouv_palettes$pal_gouv_a[1:5]),"dark grey")
@@ -343,7 +342,7 @@ creer_carte_volume2<-function(data=indic_ecln,
data_prep<- data_prep %>%
dplyr::mutate(Valeur=cut(Valeur,breaks=bks2,
# labels=c(paste("moins de ",round(bks[2:length(bks)],0)),paste("plus de",max(bks))),
- labels=c("Pas d\'activit\u00e9",
+ labels=c("Aucune activit\u00e9",
paste("De 1 \u00e0",round(bks[2],0)),
paste("De",round(bks[2],0)+1,"\u00e0",round(bks[3],0)),
paste("De",round(bks[3],0)+1,"\u00e0",round(bks[4],0)),
diff --git a/R/creer_graphique_evolution_annuelle.R b/R/creer_graphique_evolution_annuelle.R
index c12824e..ff25d6f 100644
--- a/R/creer_graphique_evolution_annuelle.R
+++ b/R/creer_graphique_evolution_annuelle.R
@@ -61,8 +61,9 @@ creer_graphique_evolution_annuelle <- function(data = indic_ecln,
p <- ggplot2::ggplot(data = df, ggplot2::aes(x = .data$Periode, weight = .data$Valeur, fill = .data$Indicateur)) +
ggplot2::geom_bar(position = ggplot2::position_dodge()) +
ggplot2::coord_flip() +
- ggplot2::theme(legend.position = "none",
+ ggplot2::theme(legend.position = c(0.85, 0.15),
legend.title = element_blank(),
+ legend.key.size = unit(1, "cm"),
panel.grid.major = element_line(color = "lightgrey", linetype = "solid"),
panel.grid.minor = element_blank(),
strip.text = element_text(hjust = 0.5, face = "bold", size = 14),
@@ -74,7 +75,8 @@ creer_graphique_evolution_annuelle <- function(data = indic_ecln,
ggplot2::aes(label = format(round(.data$Valeur), big.mark = " "), x = .data$Periode, y = .data$Valeur, group = .data$Indicateur),
position = position_dodge(0.9), color = "white", size = 4, alpha = 1, fontface = "bold", hjust = 1.2) +
ggplot2::scale_y_continuous(expand = c(0, 0), labels = scales::format_format(big.mark = " ")) +
- gouvdown::scale_fill_gouv_discrete(palette = "pal_gouv_qual2") +
+ # gouvdown::scale_fill_gouv_discrete(palette = "pal_gouv_qual2") +
+ ggplot2::scale_fill_manual(values = c("#E1000F", "#808080", "#000091"), breaks=c("Ventes","Mises en vente","Encours")) +
ggplot2::labs(title = titre, x = "Trimestre", y = "", caption = bas_de_page, fill = "")
if (type_facet == "classique") {
p <- p +
diff --git a/R/creer_graphique_evolution_trim.R b/R/creer_graphique_evolution_trim.R
index 7d1bd5f..266fcd4 100644
--- a/R/creer_graphique_evolution_trim.R
+++ b/R/creer_graphique_evolution_trim.R
@@ -56,7 +56,7 @@ creer_graphique_evolution_trim <- function(data = indic_ecln,
description = stringr::str_c(
format(round(.data$Valeur), big.mark = " "),
"\n",
- ifelse(.data$TauxEvolution12Mois > 0, "+", ""),
+ ifelse(.data$TauxEvolution12Mois > 0, "+ ", ""),
format(round(.data$TauxEvolution12Mois, 1), big.mark = " ", decimal.mark = ","),
" %"
),
@@ -65,7 +65,7 @@ creer_graphique_evolution_trim <- function(data = indic_ecln,
# "Moyenne\nannuelle"
# )
label = ifelse(.data$TypeIndicateur %in% c("Valeur trimestrielle"),
- "Valeur\ntrimestrielle",
+ "Valeur\ndu trimestre",
"Moyenne\nannuelle"
)
)
@@ -87,35 +87,35 @@ creer_graphique_evolution_trim <- function(data = indic_ecln,
ggplot2::geom_line(size = 1.2) +
ggplot2::geom_point(data = label, ggplot2::aes(x = .data$Periode, y = .data$Valeur, group = .data$TypeIndicateur, color = .data$TypeIndicateur)) +
ggforce::geom_mark_circle(
- data = label, ggplot2::aes(
- label = .data$label,
- fill = .data$TypeIndicateur,
- description = .data$description
- ),
+ data = label,
+ ggplot2::aes(label = .data$label,
+ fill = .data$TypeIndicateur,
+ description = .data$description),
label.buffer = grid::unit(5, "mm"), #longueur du trait
- expand = grid::unit(0, "mm"), #diametre du cercle sur le dernier point. 0 on le supprime
+ expand = grid::unit(0, "mm"), #diametre du cercle sur le dernier point (0 pour le supprimer)
label.margin = ggplot2::margin(2, 5, 2, 5, "mm"), #marges autour du texte (haut, gauche, bas, droite)
# label.colour = c("red", "blue"), #couleur du texte
- label.fontsize = 9,
label.colour = gouvdown::gouv_colors("r1"),
+ label.fontsize = 9,
# alpha = 0.5, #transparence du cercle
label.fill = NA
# label.fill = gouvdown::gouv_colors("bleu_france") #couleur de la boite d'annotation
) +
- ggplot2::guides(color = guide_legend(override.aes = list(fill = NA)),
- linetype = guide_legend(override.aes = list(fill = NA))) +
+ ggplot2::guides(linetype = guide_legend(override.aes = list(fill = NA))) +
ggplot2::theme(title = element_text(colour = "#0f0f0f"),
legend.position = "bottom",
legend.title = element_blank(),
- legend.key = element_rect(color = "white", fill = "white"),
+ legend.key = element_rect(colour = NA, fill = NA),
legend.background=element_blank(),
- panel.grid.major = element_line(color = "lightgrey", linetype = "solid"),
+ panel.grid.major = element_line(colour = "lightgrey", linetype = "solid"),
panel.grid.minor = element_blank(),
axis.title = element_blank(),
axis.text.x = element_text(size=11, hjust=-0.1),
axis.line = element_line(size = 0.5, linetype = "solid")) +
- gouvdown::scale_color_gouv_discrete(palette = "pal_gouv_qual2") +
- gouvdown::scale_fill_gouv_discrete(palette = "pal_gouv_qual2") +
+ # gouvdown::scale_color_gouv_discrete(palette = "pal_gouv_qual2") +
+ # gouvdown::scale_fill_gouv_discrete(palette = "pal_gouv_qual2") +
+ ggplot2::scale_colour_manual(values = c("#E1000F", "#000091")) +
+ ggplot2::scale_fill_manual(values = c("#E1000F","#000091")) +
ggplot2::labs(x = "", y = "", title = titre, subtitle = sous_titre,
caption = "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nMoyenne annuelle : valeur observ\u00e9e en moyenne lors des 4 derniers trimestres") +
ggplot2::theme(plot.caption = element_text(size = 10))+
@@ -125,4 +125,3 @@ creer_graphique_evolution_trim <- function(data = indic_ecln,
return(gg)
}
-
diff --git a/R/creer_graphique_series_temporelles.R b/R/creer_graphique_series_temporelles.R
index 0d292e1..ba80ea9 100644
--- a/R/creer_graphique_series_temporelles.R
+++ b/R/creer_graphique_series_temporelles.R
@@ -35,8 +35,9 @@ creer_graphique_series_temporelles <- function(data = indic_ecln,
ggplot2::ggplot() +
ggplot2::aes(x = .data$Periode, y = .data$Valeur, color = .data$Indicateur, fill = .data$Indicateur, group = .data$Indicateur) +
ggplot2::geom_line(size = 1.2) +
- ggplot2::theme(legend.position = "none",
+ ggplot2::theme(legend.position = c(0.85, 0.15),
legend.title = element_blank(),
+ legend.key.size = unit(1, "cm"),
panel.grid.major = element_line(color = "lightgrey", linetype = "solid"),
panel.grid.minor = element_blank(),
strip.text = element_text(hjust = 0.5, face = "bold", size=14),
@@ -45,7 +46,8 @@ creer_graphique_series_temporelles <- function(data = indic_ecln,
axis.line = element_line(colour = "black", size = 0.5, linetype = "solid")) +
ggplot2::scale_y_continuous(expand = c(0, 0), labels = scales::format_format(big.mark = " "), limits = c(0, NA)) +
ggplot2::scale_x_date(date_labels = "%y", expand = c(0, 0), date_breaks = "1 year") +
- gouvdown::scale_color_gouv_discrete(palette = "pal_gouv_qual2") +
+ # gouvdown::scale_color_gouv_discrete(palette = "pal_gouv_qual2") +
+ ggplot2::scale_colour_manual(values = c("#E1000F", "#808080", "#000091"), breaks=c("Ventes","Mises en vente","Encours")) +
ggplot2::labs(
title = titre,
x = "",
diff --git a/R/creer_graphique_series_temporelles_prix.R b/R/creer_graphique_series_temporelles_prix.R
index b9c036e..26c4d4a 100644
--- a/R/creer_graphique_series_temporelles_prix.R
+++ b/R/creer_graphique_series_temporelles_prix.R
@@ -73,7 +73,7 @@ creer_graphique_series_temporelles_prix <- function(data = indic_ecln,
axis.line = element_line(size = 0.5, linetype = "solid")) +
ggplot2::scale_x_date(date_labels = "%y", expand = c(0, 0), date_breaks = "1 year") +
ggplot2::scale_y_continuous(labels = scales::dollar_format(big.mark = " ", decimal_mark = ",", prefix = "", suffix = " \u20ac")) +
- gouvdown::scale_color_gouv_discrete(palette = "pal_gouv_qual2") +
+ gouvdown::scale_color_gouv_discrete(palette = "pal_gouv_fr") +
ggplot2::labs(
title = titre,
x = "",
diff --git a/R/creer_tableau_synthese_annuelle.R b/R/creer_tableau_synthese_annuelle.R
index ccda7d7..237daa6 100644
--- a/R/creer_tableau_synthese_annuelle.R
+++ b/R/creer_tableau_synthese_annuelle.R
@@ -72,7 +72,7 @@ creer_tableau_synthese_annuel <- function(data = indic_ecln,
kableExtra::row_spec(1:2, bold = T, background = "#f0f0f5") %>%
kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix moyen du m\u00B2 (en \u20ac)" = 2)) %>%
kableExtra::add_indent(c(3:nombre_zone)) %>%
- kableExtra::footnote(general_title="",general = "NC : donn\u00e9es non communiqu\u00e9es en raison du secret statistique (voir la section '\u00C0 propos' \u00E0 la fin du document)")
+ kableExtra::footnote(general_title="",general = "NC : donn\u00e9es non communiqu\u00e9es en raison du secret statistique (voir la section \u00C0 propos \u00E0 la fin du document)")
if ("ABC" %in% type_zone) {
res <- res %>%
kableExtra::row_spec(nombre_fr_dep_reg:nombre_zone, bold = T, background = "#bebece")
diff --git a/R/creer_tableau_synthese_trimestrielle.R b/R/creer_tableau_synthese_trimestrielle.R
index 3f9a083..e10a0fd 100644
--- a/R/creer_tableau_synthese_trimestrielle.R
+++ b/R/creer_tableau_synthese_trimestrielle.R
@@ -73,6 +73,6 @@ creer_tableau_synthese_trimestrielle <- function(data = indic_ecln,
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 moyen du m\u00B2 (en \u20ac)" = 2)) %>%
- kableExtra::footnote(general_title="",general = "NC : donn\u00e9es non communiqu\u00e9es en raison du secret statistique (voir la section '\u00C0 propos' \u00E0 la fin du document)")
+ kableExtra::footnote(general_title="",general = "NC : donn\u00e9es non communiqu\u00e9es en raison du secret statistique (voir la section \u00C0 propos \u00E0 la fin du document)")
}
diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
index 7f789b8..59f29b0 100644
--- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
@@ -14,7 +14,8 @@
<br>--------------------------
<br> </p>
<p style="text-align: center;">Une production du</p>
-<center><img src="www/Logo_datalab.svg", width="200"></center>
+<a href="http://www.pays-de-la-loire.developpement-durable.gouv.fr/dreal-centre-de-service-de-la-donnee-r1957.html"><center><img src="www/Logo_datalab.svg", width="200"></center></a>
+
</div>
@@ -26,9 +27,11 @@
<p style="text-align: left;">Centre de service de la donnée (CSD)</p>
-<p style="text-align: left;">5 rue Françoise Giroud - CS16326<br>44263 NANTES Cedex 2<br>Tél. 02 72 74 73 00</p>
+<p style="text-align: left;">5, rue Françoise Giroud - CS 16326<br>44263 NANTES Cedex 2<br>Tél. 02 72 74 73 00</p>
+
+<a href="mailto:statistiques.dreal-pdl@developpement-durable.gouv.fr" ><U><strong>statistiques.dreal-pdl@developpement-durable.gouv.fr</strong></U></a>
-<p style="text-align: left;">mail : statistiques.dreal-pdl<br>@developpement-durable.gouv.fr</p>
+<br> 
<p style="text-align: left;">Directrice de la publication : Anne BEAUVAL</p>
diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/header_2.html b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/header_2.html
new file mode 100644
index 0000000..985a145
--- /dev/null
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/header_2.html
@@ -0,0 +1,18 @@
+<div class="row">
+
+<div class="col-md-4">
+<a>
+<img style="margin:9px 0px 0px -16px" src="www/52-pays-de-la-loire-RVB.png" width="215px">
+</a>
+</div>
+
+<div class="col-md-1">
+</div>
+
+<div class="col-md-8">
+<p style="font-size:160%; text-align:left; color:#323787; line-height:12pt"><strong> </strong></p>
+<p style="font-size:240%; text-align:right; color:#323787; line-height:32pt">
+<strong>La commercialisation<br>des logements neufs<br>dans les Pays de la Loire</strong></p>
+</div>
+
+</div>
diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
index f28ea53..f691987 100644
--- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
@@ -4,16 +4,18 @@ params:
annee: "2024"
trimestre: "1"
abc: FALSE
-title: "La commercialisation<br>des logements neufs<br>dans les `r mapfactory::get_nom_reg(params$region)`"
-subtitle: <h2>`r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee` - Titre informatif qui peut tenir sur plusieurs lignes (par exemple Le recul des ventes de maisons est quatre fois plus important que celui des appartements) </h2>
+# title: "La commercialisation<br>des logements neufs<br>dans les `r mapfactory::get_nom_reg(params$region)`"
+# subtitle: <h2>`r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee` - Titre informatif qui peut tenir sur plusieurs lignes (par exemple Les ventes sont les plus basses depuis au moins sept ans) </h2>
+title: <p>`r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee` - Titre informatif pouvant tenir sur plusieurs lignes</p>
author: "[**Denis DOUILLARD - DREAL des Pays de la Loire**](mailto:statistiques.dreal-pdl@developpement-durable.gouv.fr)"
date: "Dernière mise à jour : `r format(Sys.Date(),'%d %B %Y')`"
output:
gouvdown::html_gouv:
toc: TRUE
toc_float: TRUE
- logo: "prefecture_r52"
+ # logo: "prefecture_r52"
include:
+ before_body: header_2.html
after_body: footer.html
editor_options:
chunk_output_type: console
@@ -81,7 +83,7 @@ caption_carte_maisons <- "Source : SDES - Enquête sur la commercialisation des
caption_carte_maisons2 <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\n\u00C9volution des ventes et des mises en vente de maisons par rapport aux douze mois pr\u00e9cedents\n\u00C9volution de l'encours des maisons par rapport au m\u00EAme trimestre de l'ann\u00e9e pr\u00e9c\u00e9dente"
caption_carte_logements <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nNombre de ventes et de mises en vente de logements au cours des douze derniers mois\nEncours en fin de trimestre"
caption_carte_logements2 <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\n\u00C9volution des ventes et des mises en vente de logements par rapport aux douze 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 : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nPrix moyen observé au cours des douze derniers mois\nDonn\u00e9es manquantes en raison du secret statistique : voir la section '\u00C0 propos' \u00E0 la fin du document"
+captionprix <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nPrix moyen observé au cours des douze derniers mois\nDonn\u00e9es manquantes en raison du secret statistique : voir la section \u00C0 propos \u00E0 la fin du document"
typezone <- c("France", "R\u00e9gions", "D\u00e9partements")
@@ -119,7 +121,11 @@ creer_graphique_evolution_trim(
<hr>
`r creer_chiffres_clefs_ecln()`
<hr>
-A COMPLETER
+À COMPLETER ET À AUTOMATISER
+
+Dans les `r mapfactory::get_nom_reg(params$region)`, 771 logements neufs destinés à des particuliers ont été vendus au `r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee`, soit 11 % de moins qu’au même trimestre de 2023. Il s'agit du 5<sup>e</sup> trimestre consécutif au cours duquel moins de mille logements sont réservés (avec un dépôt d’arrhes au promoteur immobilier). Un volume de réservations à quatre chiffres avait été systématiquement dépassé depuis 2017 (année de refonte de l’enquête ECLN), soit pendant vingt-quatre trimestres de suite.
+
+En cumul annuel, le recul des ventes est d'un quart (- 25,5 %), contre un tiers en France métropolitaine (- 33,4 %). 3 480 logements ont ainsi été vendus dans les `r mapfactory::get_nom_reg(params$region)` lors des quatre derniers trimestres, c'est moitié moins qu'avant la crise sanitaire.
</div>
</div>
@@ -195,6 +201,7 @@ creer_carte_volume2(data=indic_ecln,
titre_legende="",
bas_de_page=caption_carte_logements)
```
+<a id="Ancre logements EPCI évolution"></a>
```{r logementscartes_evol,fig.height = 6,fig.width = 12}
creer_carte_evolution(data=indic_ecln,
code_region = params$reg,
@@ -233,7 +240,11 @@ creer_graphique_evolution_trim(
<hr>
-A COMPLETER
+À COMPLETER ET À AUTOMATISER
+
+728 appartements neufs ont été vendus au `r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee`. C'est 9,1 % de moins qu’au 1<sup>er</sup> trimestre de 2023, soit un recul presque trois fois moindre que dans l'Hexagone (- 24,3 %). Ce nombre d’appartements réservés par des particuliers est à peine supérieur à celui du troisième trimestre de 2023 (718 appartements) qui demeure le point bas des sept dernières années. Après avoir baissé en fin d'année dernière pour la première fois depuis 2017, le prix moyen au m² a de nouveau augmenté : 4 420 € au T1 de 2024 contre 4 234 € au T1 de 2023, soit une hausse de 4,4 %.
+
+En cumul annuel, les réservations ont chuté d'un quart. 3 246 appartements ont été vendus au cours des quatre derniers trimestres, à un prix moyen de 4 471 € au m² (+ 1,6 % par rapport aux quatre trimestres précédents).
</div>
@@ -312,6 +323,7 @@ creer_carte_volume2(data=indic_ecln,
titre_legende="",
bas_de_page=caption_carte_appartements)
```
+<a id="Ancre appartements EPCI évolution"></a>
```{r collectifcartes_evol,fig.height = 6,fig.width = 12}
creer_carte_evolution(data=indic_ecln,
code_region = params$reg,
@@ -349,7 +361,11 @@ creer_graphique_evolution_trim(
<hr>
-A COMPLETER
+À COMPLETER ET À AUTOMATISER
+
+Seulement quarante-trois maisons individuelles groupées, commercialisées par des promoteurs immobiliers dans des programmes d'au moins cinq logements, ont été vendues lors du premier trimestre de 2024, soit 38 % de moins qu’au premier trimestre de 2023. Ce volume de réservations et celui du trimestre précédent (38 maisons) sont les plus faibles des vingt-neuf derniers trimestres.
+
+En cumul annuel, le recul des ventes est de 33 % dans les Pays de la Loire et de 38 % en France métropolitaine. 234 maisons groupées ont été vendues en douze mois dans la région, soit seulement 6,7 % des réservations totales de logements. Cette part est de 5,3 % dans l'Hexagone.
</div>
@@ -366,6 +382,8 @@ creer_tableau_synthese_trimestrielle(type_logement = "individuel")
```
 
+<a id="Ancre maisons 12 mois"></a>
+
### Cumul des quatre derniers trimestres
```{r individueltableaucumul}
@@ -428,6 +446,7 @@ creer_carte_volume2(data=indic_ecln,
titre_legende="",
bas_de_page=caption_carte_maisons)
```
+<a id="Ancre maisons EPCI évolution"></a>
```{r individuelcartes_evol,,fig.height = 6,fig.width = 12}
creer_carte_evolution(data=indic_ecln,
code_region = params$reg,
@@ -443,11 +462,13 @@ creer_carte_evolution(data=indic_ecln,
## La source ECLN
-L’enquête sur la commercialisation des logements neufs (ECLN) est réalisée chaque trimestre à partir des informations figurant sur les permis de construire[^1] issues de la base [Sitadel](https://www.statistiques.developpement-durable.gouv.fr/la-construction-neuve). Les promoteurs immobiliers sont interrogés sur les caractéristiques et la commercialisation éventuelle de leur projet de construction.
+L’enquête sur la commercialisation des logements neufs (ECLN) est réalisée chaque trimestre à partir des informations figurant sur les permis de construire[^1] issues de la base [<strong><U>Sitadel</U></strong>](https://www.statistiques.developpement-durable.gouv.fr/la-construction-neuve). Les promoteurs immobiliers sont interrogés sur les caractéristiques et la commercialisation éventuelle de leur projet de construction.
+
+La base de sondage de l'ECLN est constituée de l'ensemble des permis de construire de plus de quatre logements (appartements et/ou maisons groupées), destinés à la vente quel que soit le mode de financement ou leur utilisation finale (résidence principale ou secondaire, achat en vue d’une location).
-La base de sondage de l'ECLN est constituée de l'ensemble des permis de construire de plus de quatre logements (appartements et/ou maisons groupées). Environ un tiers de ces programmes d'au moins cinq logements sont exclues du champ de l'enquête. Le hors champ de l'ECLN comprend les projets qui ne sont pas destinés intégralement à la vente ou qui ne s'apparente pas à de la commercialisation immobilière classique. Il recouvre plusieurs cas de figure :
+Environ un tiers de ces programmes d'au moins cinq logements sont exclues du champ de l'enquête. Le hors champ de l'ECLN comprend les projets qui ne sont pas destinés intégralement à la vente ou qui ne s'apparente pas à de la commercialisation immobilière classique. Il recouvre plusieurs cas de figure :
-* les logements loués par le promoteur,
+* les logements construits pour être loués directement par le promoteur,
* la location accession (PSLA, ...),
@@ -463,7 +484,18 @@ La base de sondage de l'ECLN est constituée de l'ensemble des permis de constru
* les ventes en plateau (construction dépourvues de cloisons et de sanitaires).
-Consultez la [méthodologie de l'enquête](https://www.statistiques.developpement-durable.gouv.fr/enquete-sur-la-commercialisation-des-logements-neufs-ecln)
+Consultez la [<strong><U>méthodologie de l'enquête</U></strong>](https://www.statistiques.developpement-durable.gouv.fr/enquete-sur-la-commercialisation-des-logements-neufs-ecln).
+
+ 
+
+## Les quatre principales variables
+* Ventes : logements réservés au cours du trimestre avec dépôt d’arrhes au promoteur immobilier.
+
+* Mises en vente : nouveaux logements proposés à la commercialisation au cours du trimestre.
+
+* Encours : logements disponibles à la vente mais encore non réservés.
+
+* Prix : prix en euros des logements réservés TTC hors frais de notaire et frais divers.
 
@@ -479,14 +511,16 @@ Le tableau ci-dessous indique pour les variables sensibles les critères de diff
 
-## Autres données non communiquées
+## Les autres données non communiquées
+
+En complément du secret statistique, une autre situation de données manquantes est celle des valeurs dites non significatives. Dans la publication, elle concerne les illustrations (tableaux de chiffres clefs et cartes) où est représentée l'évolution d'un indicateur en glissement annuel, c'est à dire par rapport à sa valeur observée quatre trimestres plus tôt. Ces taux d'évolution sont considérés comme non significatifs quand la valeur de comparaison est nulle, ne permettant pas le calcul du pourcentage de variation.
-Un autre cas de données non communiquées est celui des valeurs dites non significatives. Il s'observe à plusieurs endroits dans la publication :
+Ce cas de figure se rencontre à plusieurs endroits dans la publication :
-* dans les tableaux de chiffres clefs où certaines cellules des colonnes <i>Évolution sur un an (en %)</i> affichent le signe NC,
+* dans les trois séries de cartes ([<strong><U>logements</U></strong>](#Ancre logements EPCI évolution), [<strong><U>appartements</U></strong>](#Ancre appartements EPCI évolution) et [<strong><U>maisons</U></strong>](#Ancre maisons EPCI évolution)) représentant les évolutions annuelles de la commercialisation par EPCI où certains territoires apparaissent en grisé[^2],
-* dans les cartes représentant ces mêmes évolutions annuelles où des EPCI apparaissent en grisé.
+* dans le <U>[<strong>tableau départemental de la commercialisation des maisons</strong>](#Ancre maisons 12 mois)</U> où certaines cellules des colonnes <i>Évolution sur un an (en %)</i> peuvent afficher le signe NC dans les territoires les moins peuplés (la Mayenne ou la Sarthe).
-Les taux d'évolution sont ainsi considérés comme non significatifs quand la valeur de comparaison (observé un an plus tôt) est nulle, rendant impossible le calcul du pourcentage de variation.
[^1]: <span style="font-size:85%;"> Ces informations sont complétées par des projets immobiliers connus au travers de la presse, d’internet ou d’autres éléments publicitaires.</span>
+[^2]: <span style="font-size:85%;"> Certains EPCI de moins de 50 000 habitants sont également en grisé car ils sont soumis au secret statistique des ventes et de l'encours de logement</span>
--
GitLab