Last data update: 26 oct. 2026, 19:18
Last compile: 26 oct. 2026, 19:22
Postes de consommation privée par cinquième de niveau de vie usuel, en % de la consommation finale, en 2022
Code
d1 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(libelle), serie = fct_inorder(serie)) |>
ggplot(aes(x = valeur, y = fct_rev(lab), fill = serie)) +
geom_col(position = position_dodge(width = 0.8), width = 0.75) +
scale_y_discrete(labels = scales::label_wrap(40)) +
scale_fill_brewer(palette = "Set2", name = NULL, labels = scales::label_wrap(30)) +
theme_pub(10) +
labs(x = "en %", y = NULL,
title = str_wrap("Postes de consommation privée par cinquième de niveau de vie usuel, en % de la consommation finale, en 2022", 75)) +
guides(fill = guide_legend(ncol = 2))
Postes de consommation privée par cinquième de niveau de vie usuel, en euros par UC, en 2022
Code
d2 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(libelle), serie = fct_inorder(serie)) |>
ggplot(aes(x = valeur, y = fct_rev(lab), fill = serie)) +
geom_col(position = position_dodge(width = 0.8), width = 0.75) +
scale_y_discrete(labels = scales::label_wrap(40)) +
scale_fill_brewer(palette = "Set2", name = NULL, labels = scales::label_wrap(30)) +
theme_pub(10) +
labs(x = "en euros par UC", y = NULL,
title = str_wrap("Postes de consommation privée par cinquième de niveau de vie usuel, en euros par UC, en 2022", 75)) +
guides(fill = guide_legend(ncol = 2))
Taux d’épargne, consommation finale privée et consommation publique, par cinquième de niveau de vie usuel, en 2022
Code
d3 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(libelle), serie = fct_inorder(serie)) |>
ggplot(aes(x = valeur, y = fct_rev(lab), fill = serie)) +
geom_col(position = position_dodge(width = 0.8), width = 0.75) +
scale_y_discrete(labels = scales::label_wrap(40)) +
scale_fill_brewer(palette = "Set2", name = NULL, labels = scales::label_wrap(30)) +
theme_pub(10) +
labs(x = "en euros par UC", y = NULL,
title = str_wrap("Taux d'épargne, consommation finale privée et consommation publique, par cinquième de niveau de vie usuel, en 2022", 75)) +
guides(fill = guide_legend(ncol = 2))