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

Le poids du parc social dans l'ensemble du parc {#poidsduparc}

composeur_carte(
  .data = indicateurs_rpls,
  indicateur = "Nombre de logements sociaux",
  titre = "Part des logements hlm dans les résidences principales au 1er janvier 2018",
  soustitre = "En %",
  parc_recent = F,
  basdepage = NULL,
  filtre_zero = F,
  na_recode = "Aucun logement\nsocial"
)

df %>%
  filter(
    SousEnsemble %in% c("Ensemble du parc"),
    Indicateur == "Nombre de logements sociaux",
    (TypeZone %in% c("Départements", "Régions", "France") | (TypeZone == "Epci" & CodeZone %in% epci_ref$EPCI))
  ) %>%
  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") +
  labs(x = "", y = "", title = str_wrap("Poids du parc social dans l'ensemble du parc", 30), caption = caption_poids)

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