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

Taux de vacance dans le parc {#vacance}

composeur_carte(
  .data = indicateurs_rpls,
  indicateur = "Taux de vacance",
  titre = "Taux de vacance dans le parc social",
  soustitre = "En %",
  parc_recent = F,
  basdepage = NULL,
  variable = Valeur,
  filtre_zero = F,
  na_recode = "Pas de logements"
)

df %>%
  filter(
    SousEnsemble %in% c("Ensemble du parc"),
    Indicateur == "Taux de vacance",
    (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 = Valeur, color = TypeZone),size=1.5) +
  geom_point(aes(x = Zone, y = Valeur, 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("Taux de vacance dans l'ensemble du parc", 60), caption = caption)

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