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

La croissance du parc social {#croissanceduparc}

p_croissance <- carte_taux_evolution(
  .data = indicateurs_rpls,
  zoom_reg = T,
  na_recode = "Pas de parc"
) +
  carte_taux_evolution(
    zoom_reg = F,
    na_recode = "Pas de parc"
  ) +
  plot_layout(
    ncol = 2,
    widths = c(3, 2)
  )
p_croissance

df %>%
  filter(
    Indicateur == "Nombre de logements sociaux",
    SousEnsemble %in% c("Ensemble du parc"),
    (TypeZone %in% c("Départements", "Régions", "France") | (TypeZone == "Epci" & CodeZone %in% epci_ref$EPCI))
  ) %>%
  select(TypeZone,CodeZone,Zone,Indicateur,Valeur,Valeur_2018) %>%
  mutate(evolution = Valeur * 100 / Valeur_2018 - 100) %>%
  ggplot() +
  geom_segment(aes(x = Zone, xend = Zone, y = 0, yend = evolution, color = TypeZone),size=1.5) +
  geom_point(aes(x = Zone, y = evolution, fill = TypeZone), color = "white", pch = 21,size=4) +
  theme_graph() +
  coord_flip() +
  scale_color_dreal_d() +
  scale_fill_dreal_d() +
  scale_y_continuous(labels = number_format(accuracy = 1, decimal.mark = ",", suffix = " %"))+
  theme(legend.position = "none",
        plot.title = element_text(hjust = 2)) +
  labs(x = "", y = "", title = str_wrap(glue("Croissance du parc social entre {annee_precedente} et params$annee"), 60), caption = caption)

p_parc_recent <- carte_parc_recent(
  .data = indicateurs_rpls,
  zoom_reg = T,
  na_recode = "Pas de parc récent"
) +
  carte_parc_recent(
    zoom_reg = F,
    na_recode = "Pas de parc récent"
  ) +
  plot_layout(
    ncol = 2,
    widths = c(3, 2)
  )
p_parc_recent

df %>%
  filter(
    Indicateur == "Nombre de logements sociaux",
    SousEnsemble %in% c("Ensemble du parc", "Parc de moins de 5 ans"),
    (TypeZone %in% c("Départements", "Régions", "France") | (TypeZone == "Epci" & CodeZone %in% epci_ref$EPCI))
  ) %>%
  select(TypeZone,CodeZone,Zone,Indicateur,Valeur,SousEnsemble) %>%
  spread(SousEnsemble, Valeur) %>%
  mutate(Pourcent = 100 * `Parc de moins de 5 ans` / `Ensemble du parc`) %>%
  ggplot() +
  geom_segment(aes(x = Zone, xend = Zone, y = 0, yend = Pourcent, color = TypeZone),size=1.5) +
  geom_point(aes(x = Zone, y = Pourcent, fill = TypeZone), color = "white", pch = 21,size=4) +
  theme_graph() +
  coord_flip() +
  scale_color_dreal_d() +
  scale_fill_dreal_d() +
  theme(legend.position = "none",
        plot.title = element_text(hjust = 2)) +
  labs(x = "", y = "", title = str_wrap("Poids du parc récent dans l'ensemble du parc social", 60), caption = caption)

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