diff --git a/NAMESPACE b/NAMESPACE index 7a97e7939b35665d30d6663631c820f5dc84eee9..c6813839b41165df385a93259b2a8c1493317d51 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -79,6 +79,7 @@ importFrom(gouvdown,theme_gouv_map) importFrom(grid,unit) importFrom(kableExtra,add_header_above) importFrom(kableExtra,add_indent) +importFrom(kableExtra,footnote) importFrom(kableExtra,kable_styling) importFrom(kableExtra,row_spec) importFrom(knitr,kable) diff --git a/R/creer_tableau_synthese_annuelle.R b/R/creer_tableau_synthese_annuelle.R index 31616e146fb7db5a9a62aff8bbd925498d9bd457..954b7a5e0fa6a89ab56300e7b769fafc636d48b2 100644 --- a/R/creer_tableau_synthese_annuelle.R +++ b/R/creer_tableau_synthese_annuelle.R @@ -5,7 +5,7 @@ #' @param type_zone Liste des types de zonage à intégrer dans la facette. #' @return Un table kable #' @importFrom dplyr filter mutate pull select full_join arrange -#' @importFrom kableExtra kable_styling row_spec add_header_above add_indent +#' @importFrom kableExtra kable_styling row_spec add_header_above add_indent footnote #' @importFrom knitr kable #' @importFrom stringr str_split_fixed #' @importFrom tidyr spread @@ -70,7 +70,8 @@ creer_tableau_synthese_annuel <- 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 au m2" = 2)) %>% - kableExtra::add_indent(c(3:nombre_zone)) + kableExtra::add_indent(c(3:nombre_zone)) %>% + kableExtra::footnote(general_title="",general = "NA : donn\u00e9es non communiqu\u00e9es (secret statistique)") 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 57c03324175f3e1ba2bbc6f8182a82f730604ab6..be3226fe880aa03dbc88722d8fee05efdb5ef087 100644 --- a/R/creer_tableau_synthese_trimestrielle.R +++ b/R/creer_tableau_synthese_trimestrielle.R @@ -6,7 +6,7 @@ #' @return un tableau kable #' @export #' @importFrom dplyr filter mutate select full_join arrange -#' @importFrom kableExtra kable_styling row_spec add_header_above +#' @importFrom kableExtra kable_styling row_spec add_header_above footnote #' @importFrom knitr kable #' @importFrom stringr str_split_fixed #' @importFrom tidyr spread @@ -71,5 +71,7 @@ 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 au m2" = 2)) + kableExtra::add_header_above(c(" " = 1, "Ventes" = 2, "Mises en vente" = 2, "Encours" = 2, "Prix au m2" = 2)) %>% + kableExtra::footnote(general_title="",general = "NA : donn\u00e9es non communiqu\u00e9es (secret statistique)") + } diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd index 7a48f3390a325a2d2c9d119318786e7610542f31..b33bdc3984043ebd355e5599005e5029028705db 100644 --- a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd +++ b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd @@ -23,8 +23,7 @@ editor_options: ```{r setup, include=FALSE} knitr::opts_chunk$set( echo = FALSE, message = FALSE, warning = FALSE, error = FALSE, - fig.height = 12, - fig.width = 12, + width = 100 ) library(propre.ecln) @@ -55,8 +54,7 @@ caption_carte_maisons <- "Source : ECLN - SDES\nNombre de ventes et de mises en 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" -captionprix_maisons <- "Source : ECLN - SDES\nPrix moyen observé sur les 12 derniers mois \nLes résultats de la Mayenne et de la zone C sont sous le seuil du secret statistique" +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") @@ -119,7 +117,7 @@ creer_tableau_synthese_annuel( #### Les comparaisons sur un an -```{r logementsevolution0} +```{r logementsevolution0 ,fig.height = 12,fig.width = 12} creer_graphique_evolution_annuelle( type_logement = "logement", type_zone = typezone, @@ -131,7 +129,7 @@ creer_graphique_evolution_annuelle( #### Les séries temporelles -```{r logementsevolution} +```{r logementsevolution,fig.height = 12,fig.width = 12} creer_graphique_series_temporelles( type_logement = "Logements", type_zone = typezone, @@ -143,7 +141,7 @@ creer_graphique_series_temporelles( ### 1.4 - L'évolution des prix -```{r logementsprix} +```{r logementsprix,fig.height = 12,fig.width = 12} creer_graphique_series_temporelles_prix( type_logement = "Logements", type_zone = typezone, @@ -155,7 +153,7 @@ creer_graphique_series_temporelles_prix( ### 1.5 - La commercialisation par EPCI -```{r ensemble_cartes_volume2_epci} +```{r ensemble_cartes_volume2_epci,fig.height = 6,fig.width = 12} creer_carte_volume2(data=indic_ecln, code_region = params$reg, indicateurs = c("Encours","Mises en vente","Ventes"), @@ -166,7 +164,7 @@ creer_carte_volume2(data=indic_ecln, bas_de_page=caption_carte_logements) ``` -```{r logementscartes_evol} +```{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"), @@ -233,7 +231,7 @@ creer_tableau_synthese_annuel( #### Les comparaisons sur un an -```{r collectifevolution0} +```{r collectifevolution0,fig.height = 12,fig.width = 12} creer_graphique_evolution_annuelle( type_logement = "collectif", type_zone = typezone, @@ -245,7 +243,7 @@ creer_graphique_evolution_annuelle( #### Les séries temporelles -```{r collectifevolution} +```{r collectifevolution,fig.height = 12,fig.width = 12} creer_graphique_series_temporelles( type_logement = "Appartements", type_zone = typezone, @@ -257,7 +255,7 @@ creer_graphique_series_temporelles( ### 2.4 - L'évolution des prix -```{r collectifprix} +```{r collectifprix,fig.height = 12,fig.width = 12} creer_graphique_series_temporelles_prix( type_logement = "Appartements", type_zone = typezone, @@ -269,7 +267,7 @@ creer_graphique_series_temporelles_prix( ### 2.5 - La commercialisation par EPCI -```{r collectifcartes_volume2} +```{r collectifcartes_volume2,fig.height = 6,fig.width = 12} creer_carte_volume2(data=indic_ecln, code_region = params$reg, indicateurs = c("Encours","Mises en vente","Ventes"), @@ -281,7 +279,7 @@ creer_carte_volume2(data=indic_ecln, ``` -```{r collectifcartes_evol} +```{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"), @@ -349,7 +347,7 @@ creer_tableau_synthese_annuel( #### Les comparaisons sur un an -```{r individuelevolution0} +```{r individuelevolution0,fig.height = 12,fig.width = 12} creer_graphique_evolution_annuelle( type_logement = "individuel", type_zone = typezone, @@ -361,7 +359,7 @@ creer_graphique_evolution_annuelle( #### Les séries temporelles -```{r individuelevolution} +```{r individuelevolution,fig.height = 12,fig.width = 12} creer_graphique_series_temporelles( type_logement = "Maisons", type_zone = typezone, @@ -373,7 +371,7 @@ creer_graphique_series_temporelles( ### 3.4 - L'évolution des prix -```{r individuelprix} +```{r individuelprix,fig.height = 12,fig.width = 12} creer_graphique_series_temporelles_prix( type_logement = "Maisons", type_zone = typezone, @@ -385,7 +383,7 @@ creer_graphique_series_temporelles_prix( ### 3.5 - La commercialisation par EPCI -```{r individuelcartes_volume2} +```{r individuelcartes_volume2,,fig.height = 6,fig.width = 12} creer_carte_volume2(data=indic_ecln, code_region = params$reg, indicateurs = c("Encours","Mises en vente","Ventes"), @@ -397,7 +395,7 @@ creer_carte_volume2(data=indic_ecln, ``` -```{r individuelcartes_evol} +```{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"), @@ -415,3 +413,36 @@ creer_carte_evolution(data=indic_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. Consultez la [méthodologie de l'enquête](https://www.statistiques.developpement-durable.gouv.fr/enquete-sur-la-commercialisation-des-logements-neufs-ecln) + +<hr> +### Le secret statistique + +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. + +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. + + +<hr> + +### Les valeurs non significatives + +Les taux d'évolution sont dits "non significatifs" quand la valeur de comparaison un an plus tôt est nulle. + + + + + + + + + + + + + + + + + diff --git a/inst/rmarkdown/templates/ecln_conjoncture/skeleton/www/tableau_secret2.png b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/www/tableau_secret2.png new file mode 100644 index 0000000000000000000000000000000000000000..f580c112dd95f6b5d801427acea011de170d9a5e Binary files /dev/null and b/inst/rmarkdown/templates/ecln_conjoncture/skeleton/www/tableau_secret2.png differ diff --git a/man/indic_ecln.Rd b/man/indic_ecln.Rd index 3a095584ef7de95373e076c393f8858aeececd19..b25a6d1f44f7383eb3739875f32c84bf2786c944 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 2197156 lignes et 9 colonnes: \describe{ \item{TypeZone}{Type de territoire} \item{CodeZone}{Code du territoire}