Last data update: 26 oct. 2026, 19:18
Last compile: 26 oct. 2026, 19:22
Composition du niveau de vie annuel moyen des ménages selon le territoire
Code
d1 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(libelle), serie = fct_inorder(str_wrap(serie, 24))) |>
ggplot(aes(x = valeur, y = fct_rev(lab))) +
geom_col(fill = bleu, width = 0.75) +
facet_wrap(~ serie, scales = "free_x", nrow = 1) +
scale_y_discrete(labels = scales::label_wrap(40)) +
theme_pub(10) +
labs(x = "en euros", y = NULL,
title = str_wrap("Composition du niveau de vie annuel moyen des ménages selon le territoire", 75)) +
theme(legend.position = "none")
Composition du niveau de vie annuel moyen des ménages selon la densité de la commune
Code
d2 |>
filter(!is.na(valeur), !total100) |>
mutate(lab = fct_inorder(libelle), serie = fct_inorder(str_wrap(serie, 24))) |>
ggplot(aes(x = valeur, y = fct_rev(lab))) +
geom_col(fill = bleu, width = 0.75) +
facet_wrap(~ serie, scales = "free_x", nrow = 1) +
scale_y_discrete(labels = scales::label_wrap(40)) +
theme_pub(10) +
labs(x = "en euros", y = NULL,
title = str_wrap("Composition du niveau de vie annuel moyen des ménages selon la densité de la commune", 75)) +
theme(legend.position = "none")