Les tableaux présentent les transferts sociaux en nature, le revenu disponible ajusté et la consommation fi… - RDBA_csp

Données - INSEE

Dépense de consommation, transferts sociaux en nature et consommation finale effective des ménages ordinaires (*) en 2011 selon la catégorie socioprofessionnelle de la personne de référence du ménage, montant annuel moyen par ménage et par unité de consommation

Code
d1 |>
  filter(!is.na(valeur), !is.na(annee), !total100, cle %in% head(unique(cle), 24)) |>
  mutate(cle = str_wrap(cle, 32)) |>
  ggplot(aes(x = annee, y = valeur)) +
  geom_line(color = bleu, linewidth = 0.9) +
  facet_wrap(~ cle, scales = "free_y", ncol = 3) +
  theme_pub(9) +
  labs(x = "P3 (**)", y = "",
       title = str_wrap("Dépense de consommation, transferts sociaux en nature et consommation finale effective des ménages ordinaires (*) en 2011 selon la catégorie socioprofessionnelle de la personne de référence du ménage, montant annuel moyen par ménage et par unité de consommation", 75)) +
  theme(legend.position = "none")

Composition de la dépense de consommation, des transferts sociaux en nature et et de la consommation finale effective des ménages ordinaires (*) en 2011 selon la catégorie socioprofessionnelle de la personne de référence du ménage, en %

Code
d2 |>
  filter(!is.na(valeur), !is.na(annee), !total100, cle %in% head(unique(cle), 24)) |>
  mutate(cle = str_wrap(cle, 32)) |>
  ggplot(aes(x = annee, y = valeur)) +
  geom_line(color = bleu, linewidth = 0.9) +
  facet_wrap(~ cle, scales = "free_y", ncol = 3) +
  theme_pub(9) +
  labs(x = "P3", y = "",
       title = str_wrap("Composition de la dépense de consommation, des transferts sociaux en nature et et de la consommation finale effective des ménages ordinaires (*) en 2011 selon la catégorie socioprofessionnelle de la personne de référence du ménage, en %", 75)) +
  theme(legend.position = "none")