Last data update: 29 sept. 2026, 17:16
Last compile: 29 sept. 2026, 17:17
`FT2.2-SL_Categories_hierarchiques` |>
filter(mesure == "Effectifs physiques", categorie %in% c("A", "B", "C", "Indeterminée")) |>
mutate(categorie = factor(categorie, levels = ordre_categorie),
versant = factor(versant, levels = ordre_versant)) |>
ggplot(aes(x = annee, y = valeur / 1000, fill = categorie)) +
geom_col() +
facet_wrap(~ versant, scales = "free_y") +
scale_fill_brewer(palette = "Set2", name = NULL) +
theme_minimal(base_size = 9) +
labs(x = NULL, y = "Milliers d'agents",
title = "Effectifs physiques par catégorie hiérarchique",
subtitle = "au 31 décembre, par versant, 2010-2019") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())
`FT2.2-SL_Categories_hierarchiques` |>
filter(mesure == "Part des femmes (%)", categorie %in% c("A", "B", "C")) |>
mutate(categorie = factor(categorie, levels = ordre_categorie),
versant = factor(versant, levels = ordre_versant)) |>
ggplot(aes(x = annee, y = valeur / 100, color = categorie)) +
geom_line(linewidth = 1) +
facet_wrap(~ versant) +
scale_y_continuous(labels = scales::percent_format(accuracy = 1)) +
scale_color_brewer(palette = "Set1", name = NULL) +
theme_minimal(base_size = 10) +
labs(x = NULL, y = NULL,
title = "Part des femmes par catégorie hiérarchique",
subtitle = "par versant, 2004-2019") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())
`FT2.2-SL_Categories_hierarchiques` |>
filter(mesure == "Âge moyen (années)", categorie %in% c("A", "B", "C")) |>
mutate(categorie = factor(categorie, levels = ordre_categorie),
versant = factor(versant, levels = ordre_versant)) |>
ggplot(aes(x = annee, y = valeur, color = categorie)) +
geom_line(linewidth = 1) +
facet_wrap(~ versant) +
scale_color_brewer(palette = "Set1", name = NULL) +
theme_minimal(base_size = 10) +
labs(x = NULL, y = "Âge moyen (années)",
title = "Âge moyen par catégorie hiérarchique",
subtitle = "par versant, 2004-2019") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())
`FT2.2-SL_Categories_hierarchiques` |>
filter(mesure %in% c("Part des 50 ans ou plus (%)", "Part des moins de 30 ans (%)"),
categorie == "Total") |>
mutate(versant = factor(versant, levels = ordre_versant)) |>
ggplot(aes(x = annee, y = valeur / 100, color = mesure)) +
geom_line(linewidth = 1) +
facet_wrap(~ versant) +
scale_y_continuous(labels = scales::percent_format(accuracy = 1)) +
scale_color_manual(values = c("Part des 50 ans ou plus (%)" = "#1B3F8B",
"Part des moins de 30 ans (%)" = "#E8737A"), name = NULL) +
theme_minimal(base_size = 9) +
labs(x = NULL, y = NULL,
title = "Structure par âge",
subtitle = "par versant, 2004-2019") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())