In MaelTheuliere/rrrpls: Rapportage sur les donnees du Repertoire du Parc Locatif Social

Les loyer dans le parc social {#loyer_m2}

p1 <- carte_indic(.data = indicateurs_rpls, 
                  indicateur = "Loyer au m2", 
                  variable = Valeur, 
                  zoom_reg = T, 
                  titre = "Loyer moyen au m2 dans le parc social au 1er janvier 2018")
p2 <- carte_indic(.data = indicateurs_rpls, 
                  indicateur = "Loyer au m2", 
                  variable = Valeur)

p5 <- legende_carte_indic(.data = indicateurs_rpls, 
                          indicateur = "Loyer au m2", 
                          variable = Valeur)
p <- p1 + p2 + plot_layout(ncol = 2, widths = c(5, 4))
p / p5 + plot_layout(heights = c(20, 1))

p_graphique_comparaison_parc_recent_loyer_m2 <- graphique_comparaison_parc_recent(
  .data = df,
  indicateur = "Loyer au m2", 
  variable = Valeur, 
  titre = "Loyer moyen dans le parc et le parc récent", 
  caption = caption
)
p_graphique_comparaison_parc_recent_loyer_m2

MaelTheuliere/rrrpls documentation built on March 4, 2020, 1:22 p.m.