Last data update: 26 oct. 2026, 19:20
Last compile: 26 oct. 2026, 19:23
Revenu disponible brut, revenu disponible brut ajusté, dépense de consommation, consommation finale effective et épargne des ménages ordinaires (*) en 2011 selon l’échelle des niveaux de vie
Code
d1 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(paste(libelle, libelle2)), 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 = "", y = NULL,
title = str_wrap("Revenu disponible brut, revenu disponible brut ajusté, dépense de consommation, consommation finale effective et épargne des ménages ordinaires (*) en 2011 selon l'échelle des niveaux de vie", 75)) +
guides(fill = guide_legend(ncol = 2))
Revenu disponible brut ajusté des ménages ordinaires (*) en 2011 selon l’échelle des niveaux de vie, montant annuel moyen par ménage et unité de consommation
Code
d2 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(paste(libelle, libelle2)), 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 = "", y = NULL,
title = str_wrap("Revenu disponible brut ajusté des ménages ordinaires (*) en 2011 selon l'échelle des niveaux de vie, montant annuel moyen par ménage et unité de consommation", 75)) +
guides(fill = guide_legend(ncol = 2))
Composition du revenu disponible brut des ménages ordinaires (*) en 2011 selon l’échelle des niveaux de vie, en %
Code
d3 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(paste(libelle, libelle2)), 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 = "", y = NULL,
title = str_wrap("Composition du revenu disponible brut des ménages ordinaires (*) en 2011 selon l'échelle des niveaux de vie, en %", 75)) +
guides(fill = guide_legend(ncol = 2))
Dépense de consommation, transferts sociaux en nature et consommation finale effective des ménages ordinaires (*) en 2011 selon l’échelle des niveaux de vie, montant annuel moyen par ménage et par unité de consommation
Code
d4 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(paste(libelle, libelle2)), 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) +
facet_grid(section ~ ., scales = "free_y", space = "free_y", labeller = labeller(section = scales::label_wrap(14))) +
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 = "", y = NULL,
title = str_wrap("Dépense de consommation, transferts sociaux en nature et consommation finale effective des ménages ordinaires (*) en 2011 selon l'échelle des niveaux de vie, montant annuel moyen par ménage et par unité de consommation", 75)) +
guides(fill = guide_legend(ncol = 2))
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 l’échelle des niveaux de vie, en %
Code
d5 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(paste(libelle, libelle2)), 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) +
facet_grid(section ~ ., scales = "free_y", space = "free_y", labeller = labeller(section = scales::label_wrap(14))) +
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 = "", y = NULL,
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 l'échelle des niveaux de vie, en %", 75)) +
guides(fill = guide_legend(ncol = 2))