Les disparités d’effort énergétique en 2006 - ip1315

Données - INSEE

Part du budget des ménages consacrée à l’énergie (logement + transport) en 2006.

Par milieu d’habitation

Code
ip1315_part_budget_2006 |>
  filter(dimension == "Milieu d'habitation", poste != "Ensemble") |>
  mutate(categorie = fct_reorder(categorie, value, .fun = sum)) |>
  ggplot() + geom_col(aes(x = categorie, y = value, fill = poste)) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("Part du budget (%)") +
  theme(legend.title = element_blank()) +
  scale_fill_viridis_d()

Par quintile de niveau de vie

Code
ip1315_part_budget_2006 |>
  filter(dimension == "Quintile de niveau de vie", poste != "Ensemble") |>
  mutate(categorie = factor(categorie, levels = c("Q1 (les 20% des ménages les plus pauvres)", "Q2", "Q3", "Q4", "Q5 (les 20% des ménages les plus aisés)"))) |>
  ggplot() + geom_col(aes(x = categorie, y = value, fill = poste)) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("Part du budget (%)") +
  theme(legend.title = element_blank()) +
  scale_fill_viridis_d()