Structure de consommation des ménages selon le niveau de vie (Budget de famille 2017) - if203

Données - INSEE

Figure 1 - Structure de consommation selon le niveau de vie

Code
if203_fig1 |>
  mutate(Coicop = fct_reorder(Coicop, value, .fun = max)) |>
  ggplot() + geom_col(aes(x = Coicop, y = value, fill = Quintile), position = position_dodge()) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("Part dans la consommation (%)") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(fill = guide_legend(nrow = 3)) +
  scale_fill_viridis_d()

Figure 2 - Propriétaires et locataires

Code
if203_fig2 |>
  filter(Quintile != "Ensemble") |>
  mutate(Coicop = fct_reorder(Coicop, value, .fun = max)) |>
  ggplot() + geom_col(aes(x = Coicop, y = value, fill = Quintile), position = position_dodge()) +
  facet_wrap(~ prop_loc) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("Part dans la consommation (%)") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(fill = guide_legend(nrow = 2)) +
  scale_fill_viridis_d()

Figure 3 - Selon le type de ménage

Code
if203_fig3 |>
  ggplot() + geom_col(aes(x = Coicop, y = value, fill = Type_menage), position = position_dodge()) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("Part dans la consommation (%)") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(fill = guide_legend(nrow = 2)) +
  scale_fill_viridis_d()

Figure 4 - Écarts de structure de consommation, 1979 vs 2017

Code
if203_fig4 |>
  mutate(annee = factor(annee), Coicop = fct_reorder(Coicop, value, .fun = min)) |>
  ggplot() + geom_col(aes(x = Coicop, y = value, fill = annee), position = position_dodge()) +
  facet_wrap(~ comparaison, scales = "free_y") +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("Écart (points de pourcentage)") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  scale_fill_viridis_d(end = 0.8)