diff --git a/DESCRIPTION b/DESCRIPTION
index f80fee72474dbbeeeefa529aa676dfdb35e302e1..a8c41b6d82d2d94e69be0cd9181052d080cc82d6 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -35,8 +35,7 @@ Imports:
scales,
sf,
stringr,
- tidyr,
- utils
+ tidyr
Remotes:
gitlab::dreal-datalab/drealdown,
gitlab::dreal-datalab/mapfactory,
@@ -44,4 +43,4 @@ Remotes:
Encoding: UTF-8
LazyData: true
Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
diff --git a/NAMESPACE b/NAMESPACE
index c6813839b41165df385a93259b2a8c1493317d51..94fc2ccb8093432a58a7df2b6b64eca115dade4c 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -21,6 +21,7 @@ importFrom(COGiter,filtrer_cog_geo)
importFrom(COGiter,list_epci_in_reg)
importFrom(COGiter,nom_zone)
importFrom(attempt,stop_if_not)
+importFrom(cartography,getBreaks)
importFrom(dplyr,arrange)
importFrom(dplyr,bind_rows)
importFrom(dplyr,case_when)
@@ -45,6 +46,7 @@ importFrom(ggplot2,aes)
importFrom(ggplot2,coord_flip)
importFrom(ggplot2,coord_sf)
importFrom(ggplot2,element_blank)
+importFrom(ggplot2,element_line)
importFrom(ggplot2,element_rect)
importFrom(ggplot2,element_text)
importFrom(ggplot2,facet_wrap)
diff --git a/R/creer_carte.R b/R/creer_carte.R
index 6fa69a9448a15c435d0f2c1197ae0d74d776f4b2..eabeae924b4a25cf9c0bf2be448c210625be18c0 100644
--- a/R/creer_carte.R
+++ b/R/creer_carte.R
@@ -97,11 +97,12 @@ creer_carte_volume<-function(data=indic_ecln,
plot_title_size = 20,
subtitle_size = 16) +
ggplot2::theme(panel.background = ggplot2::element_rect(fill = "light blue"),
- plot.background=ggplot2::element_rect(fill="#ffffff",color="#ffffff"),
+ plot.background = ggplot2::element_rect(fill="#ffffff",color="#ffffff"),
legend.position = "bottom",
legend.title = ggplot2::element_blank(),
- plot.caption.position = "plot"
- ) +
+ strip.text = element_text(hjust = 0.5, face = "bold", size=14),
+ strip.background = element_blank(),
+ plot.caption.position = "plot") +
ggplot2::labs(fill=titre_legende,
caption=bas_de_page,
title=titre,
@@ -173,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",
@@ -200,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))
@@ -237,8 +238,9 @@ creer_carte_evolution<-function(data=indic_ecln,
plot.background=ggplot2::element_rect(fill="#ffffff",color="#ffffff"),
legend.position = "bottom",
legend.title = ggplot2::element_blank(),
- plot.caption.position = "plot"
- ) +
+ strip.text = element_text(hjust = 0.5, face = "bold", size=14),
+ strip.background = element_blank(),
+ plot.caption.position = "plot") +
ggplot2::labs(fill=titre_legende,
caption=bas_de_page,
title=titre)
@@ -272,6 +274,7 @@ creer_carte_evolution<-function(data=indic_ecln,
#' @importFrom mapfactory fond_carto
#' @importFrom sf st_bbox st_crs
#' @importFrom forcats fct_drop fct_relevel
+#' @importFrom cartography getBreaks
#' @importFrom stringr str_split_fixed
#'
#'
@@ -288,13 +291,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")
@@ -341,7 +343,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)),
@@ -379,10 +381,12 @@ creer_carte_volume2<-function(data=indic_ecln,
plot_title_size = 20,
subtitle_size = 16) +
ggplot2::theme(panel.background = ggplot2::element_rect(fill = "light blue",color="light blue"),
- plot.background=ggplot2::element_rect(fill="#ffffff",color="#ffffff"),
- legend.position = "bottom",
- legend.title = ggplot2::element_blank(),
- plot.caption.position = "plot")+
+ plot.background = ggplot2::element_rect(fill="#ffffff",color="#ffffff"),
+ legend.position = "bottom",
+ legend.title = ggplot2::element_blank(),
+ strip.text = element_text(hjust = 0.5, face = "bold", size=14),
+ strip.background = element_blank(),
+ plot.caption.position = "plot")+
ggplot2::labs(fill=titre_legende,
caption = bas_de_page,
title=titre)
diff --git a/R/creer_chiffres_clefs.R b/R/creer_chiffres_clefs.R
index e81d5458f6bf22f9a75c3df5cfd57a2aa8168537..8eaa88db29636fbd5560437c59493e6e94ffa961 100644
--- a/R/creer_chiffres_clefs.R
+++ b/R/creer_chiffres_clefs.R
@@ -7,25 +7,44 @@
#' @importFrom lubridate month year
en_trimestre <- function(date) {
trim <- dplyr::case_when(
- lubridate::month(date) <= 3 ~ "1er",
- lubridate::month(date) <= 6 ~ "2\u00e8me",
- lubridate::month(date) <= 9 ~ "3\u00e8me",
- lubridate::month(date) <= 12 ~ "4\u00e8me"
+ lubridate::month(date) <= 3 ~ "1<sup>er</sup>",
+ lubridate::month(date) <= 6 ~ "2<sup>\u00e8me</sup>",
+ lubridate::month(date) <= 9 ~ "3<sup>\u00e8me</sup>",
+ lubridate::month(date) <= 12 ~ "4<sup>\u00e8me</sup>"
)
return(
- paste(trim, "trimestre", lubridate::year(date))
+ paste(trim, "trimestre de", lubridate::year(date))
)
}
-#' Fonction utilitaire de formatage en pourcentage pour le francais
+#' Convertit une date en trimestre de l'année n moins un
#'
-#' @description fonction utilitaire de formatage en pourcentage pour le francais
+#' @param date une date
+#'
+#' @return une chaine de caractère
+#' @importFrom dplyr case_when
+#' @importFrom lubridate month year
+en_trimestre_moins_un <- function(date) {
+ trim <- dplyr::case_when(
+ lubridate::month(date) <= 3 ~ "1<sup>er</sup>",
+ lubridate::month(date) <= 6 ~ "2<sup>\u00e8me</sup>",
+ lubridate::month(date) <= 9 ~ "3<sup>\u00e8me</sup>",
+ lubridate::month(date) <= 12 ~ "4<sup>\u00e8me</sup>"
+ )
+ return(
+ paste(trim, "trimestre de", lubridate::year(date)-1)
+ )
+}
+
+#' Fonction utilitaire de formatage en pourcentage pour le français
+#'
+#' @description fonction utilitaire de formatage en pourcentage pour le français
#' @param x un nombre à formater en pourcentage
#' @param dec un entier désignant le nombre de chiffres après la virgule souhaité (1 par défaut)
#' @param sign TRUE pour avoir le signe +/-
#'
-#' @return une chaîne de texte, x %, avec transformation de la décimale en virgule et insertion d'un espace insécable
+#' @return une chaîne de texte, x %, avec transformation de la décimale en virgule et insertion d'espaces insécables
#'
#' @importFrom attempt stop_if_not
format_fr_pct <- function(x, dec = 1, sign = TRUE) {
@@ -36,7 +55,7 @@ format_fr_pct <- function(x, dec = 1, sign = TRUE) {
if (sign == TRUE) {
res <- paste0(formatC(x, decimal.mark = ",", big.mark = "\u202f", format = "f", digits = dec), "\u00a0%")
if (x > 0) {
- res <- paste0("+", res)
+ res <- paste0("+", "\u202f", res)
}
}
return(res)
@@ -98,10 +117,11 @@ creer_chiffres_clefs_ecln <- function(data = indic_ecln,
)
val <- list(
periode = en_trimestre(df$Periode),
+ periode_moins_un = en_trimestre_moins_un(df$Periode),
valeur = format_fr_nb(df$Valeur, dec = 0),
evolution = format_fr_pct(df$TauxEvolution12Mois, dec = 1)
)
- res <- glue::glue("{drealdown::my_icon('la-building', size=2)} <b>{val$valeur}</b> {texte_log} au {val$periode}<br>
- {drealdown::my_icon('la-line-chart', size=2)} <b>{val$evolution}</b> sur un an")
+ res <- glue::glue("{drealdown::my_icon('la-building', size=2)} <b>{val$valeur}</b> {texte_log}<br>au cours du {val$periode}<br>
+ {drealdown::my_icon('la-line-chart', size=2)} <b>{val$evolution}</b> par rapport au {val$periode_moins_un}")
return(res)
}
diff --git a/R/creer_graphique_evolution_annuelle.R b/R/creer_graphique_evolution_annuelle.R
index 6137d6d68ffd1eddde1f371f0283854f73df84b7..ff25d6fa416a2a416aa3daf3d4ec99d0899326ce 100644
--- a/R/creer_graphique_evolution_annuelle.R
+++ b/R/creer_graphique_evolution_annuelle.R
@@ -61,27 +61,23 @@ 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::geom_label(
+ 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),
+ strip.background = element_blank(),
+ axis.text.x = element_text(size = 9),
+ axis.line = element_line(size = 0.5, linetype = "solid")) +
+ ggplot2::geom_text(
data = df,
- 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",
- fill = "grey",
- alpha = .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 = "",
- caption = bas_de_page, fill = ""
- )
+ 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") +
+ 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 +
ggplot2::facet_wrap(~ .data$Zone, scales = "free", ncol = ncol_facet)
diff --git a/R/creer_graphique_evolution_trim.R b/R/creer_graphique_evolution_trim.R
index 7eb722a0bccdeeb932c75faaa7f90cdd16d0d891..a730a2bd36e6e426537eff09221a97b864de3e1b 100644
--- a/R/creer_graphique_evolution_trim.R
+++ b/R/creer_graphique_evolution_trim.R
@@ -10,7 +10,7 @@
#' @importFrom dplyr select distinct pull filter mutate
#' @importFrom forcats fct_recode
#' @importFrom ggforce geom_mark_circle
-#' @importFrom ggplot2 ggplot aes geom_line geom_point margin theme labs guides scale_y_continuous scale_x_date element_text
+#' @importFrom ggplot2 ggplot aes geom_line geom_point margin theme labs guides scale_y_continuous scale_x_date element_text element_line
#' @importFrom glue glue
#' @importFrom gouvdown gouv_colors scale_color_gouv_discrete scale_fill_gouv_discrete
#' @importFrom grid unit
@@ -19,7 +19,7 @@
creer_graphique_evolution_trim <- function(data = indic_ecln,
indicateur = "Ventes - Logements",
zone = "Pays de la Loire",
- titre = "Ventes de logements neufs en Pays de la Loire") {
+ titre = "Ventes de logements neufs dans les Pays de la Loire") {
per <- data %>%
dplyr::select(.data$Periode) %>%
dplyr::distinct() %>%
@@ -38,7 +38,7 @@ creer_graphique_evolution_trim <- function(data = indic_ecln,
}
# 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)}")
+ sous_titre <- glue::glue("{rang_trimestre} trimestre de {lubridate::year(max_date)}")
label <- data %>%
dplyr::filter(
.data$Zone == zone,
@@ -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"
)
)
@@ -84,39 +84,44 @@ creer_graphique_evolution_trim <- function(data = indic_ecln,
) %>%
ggplot2::ggplot() +
ggplot2::aes(x = .data$Periode, y = .data$Valeur, group = .data$TypeIndicateur, linetype = .data$TypeIndicateur, color = .data$TypeIndicateur) +
- ggplot2::geom_line() +
+ 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(2, "mm"),
+ 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 = "white", #couleur du texte
+ # label.colour = c("red", "blue"), #couleur du texte
+ label.colour = gouvdown::gouv_colors("r1"),
label.fontsize = 9,
- label.colour = gouvdown::gouv_colors("bleu_france"),
- alpha = 0.5, #transparence du cercle
+ # alpha = 0.5, #transparence du cercle
label.fill = NA
# label.fill = gouvdown::gouv_colors("bleu_france") #couleur de la boite d'annotation
) +
- ggplot2::theme(legend.position = "bottom",
- legend.title = element_blank()) +
- gouvdown::scale_color_gouv_discrete(palette = "pal_gouv_qual2") +
- gouvdown::scale_fill_gouv_discrete(palette = "pal_gouv_qual2") +
- ggplot2::labs(
- x = "",
- y = "Nombre de ventes",
- title = titre,
- subtitle = sous_titre,
- caption = "Source : ECLN - SDES\nMoyenne annuelle : Valeur observ\u00e9e en moyenne sur les 4 derniers trimestres"
- ) +
+ 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(colour = NA, fill = NA),
+ legend.background=element_blank(),
+ 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") +
+ 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\u00EAte 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))+
- ggplot2::guides(fill = F) +
- ggplot2::scale_y_continuous(labels = function(l) format(l, scientific = FALSE, big.mark = " ", decimal.mark = ","), limits = c(0, NA)) +
- ggplot2::scale_x_date(date_breaks = "1 year", date_labels = "%Y", limits = c(min(per), max(per) + months(12)))
+ ggplot2::scale_y_continuous(expand = c(0, 0), labels = function(l) format(l, scientific = FALSE, big.mark = " ", decimal.mark = ","), limits = c(0, NA)) +
+ ggplot2::scale_x_date(date_breaks = "1 year", date_labels = "%Y", expand = c(0, 0), limits = c(min(per), max(per) + months(12)))
return(gg)
}
+
diff --git a/R/creer_graphique_series_temporelles.R b/R/creer_graphique_series_temporelles.R
index 41a64dbdbe21ee1847c4cac969532bfd882b8b72..ba80ea9692ada5e34f86b5be75ce81111529dd88 100644
--- a/R/creer_graphique_series_temporelles.R
+++ b/R/creer_graphique_series_temporelles.R
@@ -35,9 +35,19 @@ 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::scale_y_continuous(labels = scales::format_format(big.mark = " "), limits = c(0, NA)) +
- ggplot2::scale_x_date(date_labels = "%y", date_breaks = "1 year") +
- gouvdown::scale_color_gouv_discrete(palette = "pal_gouv_qual2") +
+ 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),
+ strip.background = element_blank(),
+ axis.text.x = element_text(size=11, hjust=-0.1),
+ 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") +
+ 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 f259de931b16edd0178a14c828ab7d804096149d..26c4d4a27e266e6b1b77a90462437da475c6decd 100644
--- a/R/creer_graphique_series_temporelles_prix.R
+++ b/R/creer_graphique_series_temporelles_prix.R
@@ -13,7 +13,7 @@
#' @export
#' @importFrom dplyr filter mutate
#' @importFrom forcats fct_drop
-#' @importFrom ggplot2 ggplot aes geom_line geom_point theme scale_x_date scale_y_continuous labs facet_wrap
+#' @importFrom ggplot2 ggplot aes geom_line geom_point theme scale_x_date scale_y_continuous labs facet_wrap element_line
#' @importFrom scales dollar_format
#' @importFrom stringr str_split_fixed
#' @importFrom gouvdown scale_color_gouv_discrete
@@ -56,17 +56,24 @@ 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::theme(legend.position = "none") +
- ggplot2::scale_x_date(date_labels = "%y", date_breaks = "1 year") +
+ # 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",
+ legend.title = element_blank(),
+ 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),
+ strip.background = element_blank(),
+ axis.text.x = element_text(size=11, hjust=-0.1),
+ 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 = "",
@@ -88,3 +95,4 @@ creer_graphique_series_temporelles_prix <- function(data = indic_ecln,
}
return(p)
}
+
diff --git a/R/creer_tableau_synthese_annuelle.R b/R/creer_tableau_synthese_annuelle.R
index 79e9280d2bbbe567d3c9b5f8cf853fbf1ec0c9eb..237daa6886ef151e61400a5bb2458d3bb71a1ef3 100644
--- a/R/creer_tableau_synthese_annuelle.R
+++ b/R/creer_tableau_synthese_annuelle.R
@@ -60,19 +60,19 @@ 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 %)"
+ "Territoire", "Au cours des douze derniers mois", "\u00C9volution sur un an (en %)",
+ "Au cours des douze derniers mois", "\u00C9volution sur un an (en %)",
+ "En fin de p\u00e9riode", "\u00C9volution sur un an (en %)",
+ "Au cours des douze derniers mois", "\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 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 (secret statistique)")
+ 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 c8da32807a9fd30deaa7536c9ce10d8eec6a8100..e10a0fd4234e0869c15174fe8d7d9a7e21163286 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 %)"
+ "Territoire", "Au cours du dernier trimestre", "\u00C9volution sur un an (en %)",
+ "Au cours du dernier trimestre", "\u00C9volution sur un an (en %)",
+ "\u00C0 la fin du dernier trimestre", "\u00C9volution sur un an (en %)",
+ "Au cours du dernier trimestre", "\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::footnote(general_title="",general = "NC : donn\u00e9es non communiqu\u00e9es (secret statistique)")
+ 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)")
}
diff --git a/dev/config_attachment.yaml b/dev/config_attachment.yaml
new file mode 100644
index 0000000000000000000000000000000000000000..46e24ecc2173ddbd6d930225a01bb92e508508d5
--- /dev/null
+++ b/dev/config_attachment.yaml
@@ -0,0 +1,12 @@
+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/devstuff.R b/devstuff.R
index b5371601358b6e29b5d59fe3d40ffa075a568df6..7ce034c3b6436aa59fdfe5757ef554b72eaeedd8 100644
--- a/devstuff.R
+++ b/devstuff.R
@@ -25,4 +25,4 @@ usethis::use_package('tidyr')
usethis::use_r("tableau_synthese_trimestrielle")
attachment::att_amend_desc()
-usethis::use_r("globals.R")
+yusethis::use_r("globals.R")
diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
index 089ffd8f414c0ce9ad0a6a4a9dc2dfa71712d6c2..59f29b046028a6e4b69fca7fa97feb442af807db 100644
--- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/footer.html
@@ -2,37 +2,42 @@
<hr />
<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">
-<p style="font-size:150%;text-align:center;color:grey";>La commercialisation des logements neufs en Pays de la Loire</p>
+<p style="font-size:150%;text-align:center;color:grey";>La commercialisation des logements neufs dans les Pays de la Loire</p>
<div class="col-md-6">
-<p style="text-align: left;">Développement : Daniel Kalioudjoglou - Maël Theuliere</p>
+<p style="text-align: center;">Développement :
+<br>Maël THEULIÈRE,
+<br>Daniel KALIOUDJOGLOU,
+<br>& Denis DOUILLARD
+<br> 
+<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>
<div class="col-md-6">
-<p style="text-align: left;">Direction régionale de l’environnement, de l’aménagement et du logement</p>
-
-<p style="text-align: left;">Service connaissance des territoires et évaluation </p>
+<p style="text-align: left;">Direction régionale de l’environnement,<br>de l’aménagement et du logement</p>
-<p style="text-align: left;">Centre de Service de la Donnée</p>
+<p style="text-align: left;">Service connaissance des territoires<br>et évaluation (SCTE) </p>
-<p style="text-align: left;">5 rue Françoise Giroud - CS16326</p>
+<p style="text-align: left;">Centre de service de la donnée (CSD)</p>
-<p style="text-align: left;">44263 Nantes Cedex 2</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>
-<p style="text-align: left;">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@developpement-durable.gouv.fr</p>
+<br> 
-<p style="text-align: left;">Directrice de la publication : Anne Beauval</p>
+<p style="text-align: left;">Directrice de la publication : Anne BEAUVAL</p>
<p style="text-align: left;">ISSN : 2109-0025</p>
-<p style="text-align: left;">©DREAL 2024</p>
+<p style="text-align: left;">© DREAL 2024</p>
</div>
<hr />
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 0000000000000000000000000000000000000000..1da9d6e3f285d086607898e4155a9e70e6095684
--- /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:30pt">
+<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 2f966306e362db57365dbafeb19206f531977c53..1b47e306da285655c5c893baa2ea864995998405 100644
--- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
+++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd
@@ -1,32 +1,61 @@
---
params:
region: "52"
- annee: "2023"
- trimestre: "3"
+ annee: "2024"
+ trimestre: "1"
abc: FALSE
-title: "La commercialisation des logements neufs en `r mapfactory::get_nom_reg(params$region)`"
-subtitle: <h1>`r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee`</h1>
-author: "Denis Douillard - Dreal Pays de la Loire"
-date: "`r Sys.Date()`"
+# 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
- logo: "prefecture_r52"
+ toc_float: TRUE
+ # logo: "prefecture_r52"
include:
+ before_body: header_2.html
after_body: footer.html
editor_options:
chunk_output_type: console
markdown:
wrap: 72
---
+<style>
+body {text-align: justify; font-size: 140%;}
+caption {color: "black"; font-size: 130%; font-weight: bold; text-align: center;}
+.table {margin:0px 0px 0px 0px; border:0px solid transparent; box-shadow:0px 0px 0px transparent;}
+.table thead>tr {height: 10px; border-top: 0px solid white;}
+.table thead>tr>th {height: 10px; border: 0px solid #ccc;}
+.table tbody>tr>td {height: 10px; border: 0px solid #ccc;}
+tfoot {font-size: 90%;}
+ul {list-style-position: outside; text-indent: 0em; padding-left: 2rem;}
+ul li {list-style-position: outside; text-indent: 0em; padding-left: 0;}
+li::before{padding: 0; margin: 0;}
+h1 {color: "black"; text-align: left; padding-left: 0px; font-size: 200%}
+h2 {color: "black"; text-align: left; padding-left: 0px; font-size: 180%}
+h3 {color: "black"; text-align: left; padding-left: 0px; font-size: 130%}
+div.tocify {width: 80%; max-width: 280px; max-height: 100%; border: #323787;}
+.tocify-header {text-indent: 0px; text-align: left; font-size: 95%; letter-spacing: -0.6px;}
+.tocify-subheader {text-indent: 0px; text-align: left; font-size: 100%}
+.tocify .tocify-item a, .tocify .list-group-item {text-indent: 0px; padding: 0px;}
+.list-group-item.active, .list-group-item.active:focus, .list-group-item.active:hover {
+ background-color: "black"; border-color: "black"}
+.tocify ul, .tocify li {line-height: 125%;}
+</style>
```{r setup, include=FALSE}
knitr::opts_chunk$set(
echo = FALSE, message = FALSE, warning = FALSE, error = FALSE,
-
width = 100
)
library(propre.ecln)
+library(extrafont)
+font_import(pattern = "Marianne", prompt = TRUE)
+loadfonts(device = "win")
+myFont <- "Marianne"
+windowsFonts(sans = myFont)
nom_region <- COGiter::regions %>%
dplyr::filter (.data$REG == params$region) %>%
@@ -45,16 +74,16 @@ 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_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_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_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"
-captionprix <- "Source : ECLN - SDES\nPrix moyen observé sur les 12 derniers mois\nDonn\u00e9es manquantes en raison du secret statistique : voir 'A propos'"
+caption <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nNombre de ventes et de mises en vente au cours des douze derniers mois\nEncours en fin de trimestre"
+caption_appartements <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nNombre de ventes et de mises en vente d'appartements au cours des douze derniers mois\nEncours en fin de trimestre"
+caption_maisons <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nNombre de ventes et de mises en vente de maisons au cours des douze derniers mois\nEncours en fin de trimestre\nLes résultats de la Mayenne et de la Sarthe sont soumis au secret statistique."
+caption_carte_appartements <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nNombre de ventes et de mises en vente d'appartements au cours des douze derniers mois\nEncours en fin de trimestre"
+caption_carte_appartements2 <- "Source : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\n\u00C9volution des ventes et des mises en vente d'appartements par rapport aux douze 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 : SDES - Enquête sur la commercialisation des logements neufs (ECLN)\nNombre de ventes et de mises en vente de maisons au cours des douze derniers mois\nEncours en fin de trimestre"
+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"
typezone <- c("France", "R\u00e9gions", "D\u00e9partements")
@@ -67,12 +96,14 @@ indic_ecln <- data_prep(
abc = params$abc
)
-
```
+ 
+
+# 1 - Les logements (maisons et appartements)
-## 1 - Les logements (maisons et appartements)
+ 
-### 1.1 - Les ventes de logements neufs
+## 1.1 - Les ventes
<div class = "row">
@@ -82,7 +113,7 @@ indic_ecln <- data_prep(
creer_graphique_evolution_trim(
indicateur = "Ventes - Logements",
zone = {nom_region},
- titre = paste("Ventes de logements neufs \nen",nom_region)
+ titre = paste("Ventes de logements neufs\ndans les",nom_region)
)
```
:::
@@ -90,20 +121,25 @@ 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’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>
-### 1.2 - Les chiffres clefs
+## 1.2 - Les chiffres clefs
-#### Chiffres trimestriels
+### `r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee`
```{r logementstableautrim}
opts <- options(knitr.kable.NA = "NC")
creer_tableau_synthese_trimestrielle(type_logement = "logement")
```
+ 
-#### Chiffres cumulés sur les 4 derniers trimestres
+### Cumul des quatre derniers trimestres
```{r logementstableaucumul}
opts <- options(knitr.kable.NA = "NC")
@@ -112,49 +148,48 @@ creer_tableau_synthese_annuel(
type_zone = typezone
)
```
+ 
+## 1.3 - Les principales évolutions {.tabset}
-
-### 1.3 - Les principales évolutions {.tabset}
-
-#### Les comparaisons sur un an
+### Les cumuls annuels à un an d'intervalle
```{r logementsevolution0 ,fig.height = 12,fig.width = 12}
creer_graphique_evolution_annuelle(
type_logement = "logement",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente de logements neufs",
+ titre = "Ventes, mises en vente et encours de logements neufs sur douze mois glissants",
bas_de_page = caption,
type_facet = "classique"
)
```
-#### Les séries temporelles
+### Les séries temporelles
```{r logementsevolution,fig.height = 12,fig.width = 12}
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 = "Ventes, mises en vente et encours de logements neufs sur douze mois glissants",
bas_de_page = caption,
type_facet = "classique"
)
```
-### 1.4 - L'évolution des prix
+## 1.4 - L'évolution des prix
```{r logementsprix,fig.height = 12,fig.width = 12}
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 = "Prix moyen au m\u00B2 des logements neufs sur douze mois glissants",
bas_de_page = captionprix,
type_facet = "classique"
)
```
-### 1.5 - La commercialisation par EPCI
+## 1.5 - La commercialisation par EPCI
```{r ensemble_cartes_volume2_epci,fig.height = 6,fig.width = 12}
creer_carte_volume2(data=indic_ecln,
@@ -162,26 +197,27 @@ 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)
```
-
+<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,
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 (glissement annuel)",
titre_legende="",
bas_de_page=caption_carte_logements2)
```
+# 2 - Les appartements
-## 2 - Les appartements
+ 
-### 2.1 - Les ventes d'appartements
+## 2.1 - Les ventes
<div class = "row">
@@ -191,7 +227,7 @@ creer_carte_evolution(data=indic_ecln,
creer_graphique_evolution_trim(
indicateur = "Ventes - Appartements",
zone = {nom_region},
- titre = paste("Ventes d'appartements neufs \nen ",nom_region)
+ titre = paste("Ventes d'appartements neufs\ndans les",nom_region)
)
```
:::
@@ -204,23 +240,27 @@ creer_graphique_evolution_trim(
<hr>
-A COMPLETER
+À COMPLETER ET À AUTOMATISER
-</div>
+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>
+</div>
-### 2.2 - Les chiffres clefs
+## 2.2 - Les chiffres clefs
-#### Chiffres trimestriels
+### `r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee`
```{r collectiftableautrim}
opts <- options(knitr.kable.NA = "NC")
creer_tableau_synthese_trimestrielle(type_logement = "collectif")
```
+ 
-#### Chiffres cumulés sur les 4 derniers trimestres
+### Cumul des quatre derniers trimestres
```{r collectiftableaucumul}
opts <- options(knitr.kable.NA = "NC")
@@ -229,49 +269,48 @@ creer_tableau_synthese_annuel(
type_zone = typezone
)
```
+ 
+## 2.3 - Les principales évolutions {.tabset}
-
-### 2.3 - Les principales évolutions {.tabset}
-
-#### Les comparaisons sur un an
+### Les cumuls annuels à un an d'intervalle
```{r collectifevolution0,fig.height = 12,fig.width = 12}
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 = "Ventes, mises en vente et encours d'appartements neufs sur douze mois glissants",
bas_de_page = caption,
type_facet = "classique"
)
```
-#### Les séries temporelles
+### Les séries temporelles
```{r collectifevolution,fig.height = 12,fig.width = 12}
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 = "Ventes, mises en vente et encours d'appartements neufs sur douze mois glissants",
bas_de_page = caption,
type_facet = "classique"
)
```
-### 2.4 - L'évolution des prix
+## 2.4 - L'évolution des prix
```{r collectifprix,fig.height = 12,fig.width = 12}
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 = "Prix moyen au m\u00B2 des appartements neufs sur douze mois glissants",
bas_de_page = captionprix,
type_facet = "classique"
)
```
-### 2.5 - La commercialisation par EPCI
+## 2.5 - La commercialisation par EPCI
```{r collectifcartes_volume2,fig.height = 6,fig.width = 12}
creer_carte_volume2(data=indic_ecln,
@@ -279,29 +318,27 @@ 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)
```
-
-
+<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,
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 (glissement annuel)",
titre_legende="",
bas_de_page=caption_carte_appartements2)
```
+# 3 - Les maisons
+ 
-
-## 3 - Les maisons
-
-### 3.1 - Les ventes de maisons
+## 3.1 - Les ventes
<div class = "row">
@@ -310,7 +347,7 @@ creer_carte_evolution(data=indic_ecln,
creer_graphique_evolution_trim(
indicateur = "Ventes - Maisons",
zone = {nom_region},
- titre = paste("Ventes de maisons neuves \nen ", nom_region)
+ titre = paste("Ventes de maisons neuves\ndans les", nom_region)
)
```
:::
@@ -323,23 +360,29 @@ creer_graphique_evolution_trim(
<hr>
-A COMPLETER
+À COMPLETER ET À AUTOMATISER
-</div>
+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>
+</div>
-### 3.2 - Les chiffres clefs
+## 3.2 - Les chiffres clefs
-#### Chiffres trimestriels
+### `r params$trimestre``r ifelse(params$trimestre == "1","<sup>er</sup>","<sup>e</sup>")` trimestre de `r params$annee`
```{r individueltableautrim}
opts <- options(knitr.kable.NA = "NC")
creer_tableau_synthese_trimestrielle(type_logement = "individuel")
```
+ 
+
+<a id="Ancre maisons 12 mois"></a>
-#### Chiffres cumulés sur les 4 derniers trimestres
+### Cumul des quatre derniers trimestres
```{r individueltableaucumul}
opts <- options(knitr.kable.NA = "NC")
@@ -348,49 +391,48 @@ creer_tableau_synthese_annuel(
type_zone = typezone
)
```
+ 
+## 3.3 - Les principales évolutions {.tabset}
-
-### 3.3 - Les principales évolutions {.tabset}
-
-#### Les comparaisons sur un an
+### Les cumuls annuels à un an d'intervalle
```{r individuelevolution0,fig.height = 12,fig.width = 12}
creer_graphique_evolution_annuelle(
type_logement = "individuel",
type_zone = typezone,
- titre = "Evolution des ventes et mises en vente de maisons neuves",
+ titre = "Ventes, mises en vente et encours de maisons neuves sur douze mois glissants",
bas_de_page = caption,
type_facet = "classique"
)
```
-#### Les séries temporelles
+### Les séries temporelles
```{r individuelevolution,fig.height = 12,fig.width = 12}
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 = "Ventes, mises en vente et encours de maisons neuves sur douze mois glissants",
bas_de_page = caption,
type_facet = "classique"
)
```
-### 3.4 - L'évolution des prix
+## 3.4 - L'évolution des prix
```{r individuelprix,fig.height = 12,fig.width = 12}
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 = "Prix moyen au m\u00B2 des maisons neuves sur douze mois glissants",
bas_de_page = captionprix,
type_facet = "classique"
)
```
-### 3.5 - La commercialisation par EPCI
+## 3.5 - La commercialisation par EPCI
```{r individuelcartes_volume2,,fig.height = 6,fig.width = 12}
creer_carte_volume2(data=indic_ecln,
@@ -398,60 +440,85 @@ 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)
```
-
-
+<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,
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 (glissement annuel)",
titre_legende="",
bas_de_page=caption_carte_maisons2)
```
-## 4 - À propos
+# 4 - À propos
-### La source ECLN
+## La source ECLN
-L’enquête sur la commercialisation des logements neufs (ECLN) est réalisée chaque trimestre à partir des informations sur les permis de construire issues de la base [Sitadel 2](https://www.statistiques.developpement-durable.gouv.fr/la-construction-neuve). Ces informations sont complétées par des projets immobiliers connus au travers de la presse, d’internet ou d’autres éléments publicitaires. Les promoteurs immobiliers sont interrogés sur les caractéristiques et la commercialisation éventuelle de leur projet.
+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.
-Consultez la [méthodologie de l'enquête](https://www.statistiques.developpement-durable.gouv.fr/enquete-sur-la-commercialisation-des-logements-neufs-ecln)
+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).
-<hr>
-### Le secret statistique
+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'apparentent pas à de la commercialisation immobilière classique. Il recouvre plusieurs cas de figure :
-L’enquête sur la commercialisation des logements neufs est obligatoire et bénéficie du label d’intérêt général et obligatoire. Toutes les parutions sont soumises au respect du secret statistique : les chiffres ne respectant pas le secret sont non diffusables.
+* les logements construits pour être loués directement par le promoteur,
-Cette source contient des variables dites sensibles, c'est à dire soumises au secret statistique (les ventes ou réservations, les encours et le prix de vente) et des variables publiques (les mises en vente).
+* la location accession (PSLA, ...),
-Le tableau ci-dessous indique pour les variables sensibles les critères de diffusion appliqués.
+* la dation,
-
-<hr>
+* la multipropriété (copromotion, achat à temps partagé, ...),
+
+* les autres démembrements (usufruit, ...),
+
+* les baux, tels que le BRS (bail réel solidaire) ou le BRI (bail réel immobilier), destinés à des ménages à bas revenus,
-### Les valeurs non significatives
+* la vente d'un terrain à bâtir avec transfert de permis,
-Les taux d'évolution sont dits "non significatifs" quand la valeur de comparaison un an plus tôt est nulle.
+* les ventes en plateau (construction dépourvues de cloisons et de sanitaires).
+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.
+ 
+## Le secret statistique
+L’ECLN est obligatoire et bénéficie du label d’intérêt général et obligatoire. Toutes les parutions sont soumises au respect du secret statistique : les chiffres ne respectant pas le secret sont non diffusables.
+
+Cette source contient des variables dites sensibles, c'est à dire soumises au secret statistique (les ventes ou réservations, les encours et le prix de vente) et des variables publiques (les mises en vente).
+
+Le tableau ci-dessous indique pour les variables sensibles les critères de diffusion appliqués.
+
+
+ 
+## Les autres données non communiquées
+En complément du secret statistique, une autre catégorie 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.
+Ce cas de figure se rencontre à plusieurs endroits dans la publication :
+* 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 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).
+[^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>
diff --git a/man/creer_graphique_evolution_trim.Rd b/man/creer_graphique_evolution_trim.Rd
index a8dbb1caa43404e8004f7391782440ef67dc1f03..627a7c7415198abea8e7310632817f6c85713a1c 100644
--- a/man/creer_graphique_evolution_trim.Rd
+++ b/man/creer_graphique_evolution_trim.Rd
@@ -8,7 +8,7 @@ creer_graphique_evolution_trim(
data = indic_ecln,
indicateur = "Ventes - Logements",
zone = "Pays de la Loire",
- titre = "Ventes de logements neufs en Pays de la Loire"
+ titre = "Ventes de logements neufs dans les Pays de la Loire"
)
}
\arguments{
diff --git a/man/en_trimestre_moins_un.Rd b/man/en_trimestre_moins_un.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..ac94728239763f28f864ba8287b4e87d27528d5a
--- /dev/null
+++ b/man/en_trimestre_moins_un.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/creer_chiffres_clefs.R
+\name{en_trimestre_moins_un}
+\alias{en_trimestre_moins_un}
+\title{Convertit une date en trimestre de l'année n moins un}
+\usage{
+en_trimestre_moins_un(date)
+}
+\arguments{
+\item{date}{une date}
+}
+\value{
+une chaine de caractère
+}
+\description{
+Convertit une date en trimestre de l'année n moins un
+}
diff --git a/man/format_fr_pct.Rd b/man/format_fr_pct.Rd
index aaffb4be956cf8cbe34d4377a2cb442bd4ce728d..a3f3e1c8aa68d9954422ae7a13da5f0e87db060a 100644
--- a/man/format_fr_pct.Rd
+++ b/man/format_fr_pct.Rd
@@ -2,7 +2,7 @@
% Please edit documentation in R/creer_chiffres_clefs.R
\name{format_fr_pct}
\alias{format_fr_pct}
-\title{Fonction utilitaire de formatage en pourcentage pour le francais}
+\title{Fonction utilitaire de formatage en pourcentage pour le français}
\usage{
format_fr_pct(x, dec = 1, sign = TRUE)
}
@@ -14,8 +14,8 @@ format_fr_pct(x, dec = 1, sign = TRUE)
\item{sign}{TRUE pour avoir le signe +/-}
}
\value{
-une chaîne de texte, x \%, avec transformation de la décimale en virgule et insertion d'un espace insécable
+une chaîne de texte, x \%, avec transformation de la décimale en virgule et insertion d'espaces insécables
}
\description{
-fonction utilitaire de formatage en pourcentage pour le francais
+fonction utilitaire de formatage en pourcentage pour le français
}
diff --git a/man/indic_ecln.Rd b/man/indic_ecln.Rd
index 3a095584ef7de95373e076c393f8858aeececd19..1b1b57b85bc51e268db1bfc916a3b7f758d0e6f4 100644
--- a/man/indic_ecln.Rd
+++ b/man/indic_ecln.Rd
@@ -6,7 +6,7 @@
\alias{indic_ecln}
\title{Table contenant les différents indicateurs de la source ecln utiles pour la publication.}
\format{
-Table de 96720 lignes et 10 colonnes:
+Table de 2450674 lignes et 9 colonnes:
\describe{
\item{TypeZone}{Type de territoire}
\item{CodeZone}{Code du territoire}