ajout des graphiques et cartes manquant

DESCRIPTION

@@ -14,9 +14,11 @@ Depends:
     R (>= 2.10)
 Imports: 
     attempt,
+    cartography,
     COGiter,
     dplyr,
     drealdown,
+    drealthemes,
     forcats,
     geofacet,
     ggforce,

NAMESPACE

@@ -5,6 +5,7 @@ export(FormatCaractere)
 export(FormatDate)
 export(creer_carte_evolution)
 export(creer_carte_volume)
+export(creer_carte_volume2)
 export(creer_chiffres_clefs_ecln)
 export(creer_graphique_evolution_annuelle)
 export(creer_graphique_evolution_trim)

R/creer_carte.R

@@ -250,3 +250,85 @@ creer_carte_evolution<-function(data=indic_ecln,
 
 }
 
+#' Création de la carte en volume en aplats sur les indicateurs de commercialisation de logements neufs
+#'
+#' @param data Le dataframe.
+#' @param code_region Le code de la région.
+#' @param indicateurs Nom de l'indicateur.
+#' @param type_logement Appartements ou Maisons.
+#' @param type_indicateur Cumul annuel ou Trimestriel
+#' @param titre Le titre du graphique.
+#' @param titre_legende Le titre de la légende.
+#' @param bas_de_page Le bas de page du graphique.
+#'
+#' @return une carte en ggplot2
+#' @export
+#' @importFrom COGiter filtrer_cog_geo list_epci_in_reg nom_zone
+#' @importFrom dplyr filter rename left_join mutate pull
+#' @importFrom ggplot2 ggplot geom_sf stat_sf_coordinates coord_sf scale_size theme element_rect element_blank labs facet_wrap
+#' @importFrom ggspatial annotation_north_arrow north_arrow_fancy_orienteering annotation_scale
+#' @importFrom gouvdown theme_gouv_map
+#' @importFrom mapfactory fond_carto
+#' @importFrom sf st_bbox st_crs
+#' @importFrom forcats fct_drop fct_relevel
+#'
+#'
+creer_carte_volume2<-function(data=indic_ecln,
+                               code_region = params$reg,
+                               indicateurs = c("Encours","Mises en vente","Ventes"),
+                               type_logement="Appartements",
+                               type_indicateur="Cumul annuel",
+                               titre="",
+                               titre_legende="",
+                               bas_de_page=""){
+
+  color<-c(drealthemes::dreal_pal("continuous")(5),"dark grey")
+
+  indic <- paste0(indicateurs," - ",type_logement)
+
+
+  epci_geo <- COGiter::filtrer_cog_geo(reg = code_region,garder_supra = TRUE)$epci
+
+  data_pour_carte<-data %>%
+    dplyr::filter(.data$Indicateur %in% indic,
+                  .data$TypeZone == "Epci",
+                  .data$Periode == max(.data$Periode),
+                  .data$TypeIndicateur == type_indicateur
+    ) %>%
+    dplyr::rename(EPCI=.data$CodeZone)
+
+  epci_reg <- COGiter::list_epci_in_reg(code_region)
+
+  data_prep<- epci_geo %>%
+    dplyr::filter(.data$EPCI %in% epci_reg) %>%
+    dplyr::left_join(data_pour_carte)
+
+  bks<-cartography::getBreaks(data_prep %>%
+                              dplyr::filter(!is.na(.data$Valeur)) %>%
+                              dplyr::filter(.data$Indicateur == paste0("Ventes - ",type_logement)) %>%
+                              dplyr::pull(.data$Valeur),
+                              method="fisher-jenks",
+                              nclass=4)
+  bks2 <- c(bks,Inf)
+
+  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))),
+                             include.lowest = T,
+                             ordered_result = T),
+                  Valeur=forcats::fct_explicit_na(Valeur,na_level="Secret statistique"))
+
+  p<-ggplot2::ggplot(data=data_prep,
+            aes(fill=.data$Valeur)) +
+    ggplot2::geom_sf(color="white",size=.1)+
+    ggplot2::coord_sf(datum=NA)+
+    # ggplot2::theme_carto+
+    ggplot2::scale_fill_manual(values=color)+
+    ggplot2::labs(fill=titre_legende,
+         caption = bas_de_page,
+         title=titre)
+  if (length(indic) > 1) {
+    p <-p+ ggplot2::facet_wrap(~Indicateur,ncol=3)
+  }
+  return(p)
+}

R/globals.R

 utils::globalVariables(
-  c("liste_zone", "indic_ecln", "%m-%","mygrid","params")
+  c("liste_zone", "indic_ecln", "%m-%","mygrid","params","Valeur")
 )

inst/rmarkdown/templates/ecln_conjoncture/skeleton/skeleton.Rmd

@@ -89,8 +89,37 @@ creer_graphique_evolution_trim(
   titre = "Ventes de logements neufs \nen Pays de la Loire"
 )
 ```
+
 :::
 
+```{r, logements_temp,fig.height=5, fig.width=12}
+creer_graphique_series_temporelles(data = indic_ecln %>% dplyr::filter(TypeZone %in% c("France","Régions")),
+                                 type_logement = "Logements")
+```
+
+```{r ensembleprix,fig.height=3, fig.width=4}
+creer_graphique_series_temporelles_prix(
+  data = indic_ecln %>% dplyr::filter(TypeZone == "France"),
+  type_logement = "Logements",
+  type_zone = typezone,
+  titre = "Prix de vente au m2",
+  bas_de_page = captionprix,
+  type_facet = "grille"
+)
+```
+
+```{r ensemble_cartes_volume2_epci}
+creer_carte_volume2(data=indic_ecln,
+                               code_region = params$reg,
+                               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_legende="",
+                               bas_de_page=caption_carte_appartements)
+```
+
+
 </div>
 
 

man/creer_carte_volume2.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/creer_carte.R
+\name{creer_carte_volume2}
+\alias{creer_carte_volume2}
+\title{Création de la carte en volume en aplats sur les indicateurs de commercialisation de logements neufs}
+\usage{
+creer_carte_volume2(
+  data = indic_ecln,
+  code_region = params$reg,
+  indicateurs = c("Encours", "Mises en vente", "Ventes"),
+  type_logement = "Appartements",
+  type_indicateur = "Cumul annuel",
+  titre = "",
+  titre_legende = "",
+  bas_de_page = ""
+)
+}
+\arguments{
+\item{data}{Le dataframe.}
+
+\item{code_region}{Le code de la région.}
+
+\item{indicateurs}{Nom de l'indicateur.}
+
+\item{type_logement}{Appartements ou Maisons.}
+
+\item{type_indicateur}{Cumul annuel ou Trimestriel}
+
+\item{titre}{Le titre du graphique.}
+
+\item{titre_legende}{Le titre de la légende.}
+
+\item{bas_de_page}{Le bas de page du graphique.}
+}
+\value{
+une carte en ggplot2
+}
+\description{
+Création de la carte en volume en aplats sur les indicateurs de commercialisation de logements neufs
+}

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 91884 lignes et 9 colonnes:
+Table de 91884 lignes et 10 colonnes:
 \describe{
 \item{TypeZone}{Type de territoire}
 \item{CodeZone}{Code du territoire}