Last data update: 29 sept. 2026, 17:15
Last compile: 29 sept. 2026, 17:15
fig7 |>
filter(indicateur %in% c("Total", "Total FPH"), versant != "Total FP") |>
ggplot(aes(x = annee, y = valeur, fill = versant)) +
geom_col() +
scale_fill_brewer(palette = "Set2", name = NULL) +
theme_minimal(base_size = 11) +
labs(x = NULL, y = "Milliers de bénéficiaires",
title = "Bénéficiaires de contrats aidés dans la fonction publique",
subtitle = "par versant, au 31 décembre, 2010-2019") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())
fig8 |>
filter(!annee_revisee, indicateur %in% c("Total y compris bénéficiaires de contrats aidés")) |>
ggplot(aes(x = annee, y = valeur / 1000)) +
geom_line(linewidth = 1, color = "#1B3F8B") +
theme_minimal(base_size = 12) +
labs(x = NULL, y = "Millions d'agents",
title = "Effectifs de la fonction publique",
subtitle = "y compris bénéficiaires de contrats aidés, 2011-2018") +
theme(panel.grid.minor = element_blank())
fig8 |>
filter(!annee_revisee,
categorie %in% c("Organismes publics hors fonction publique",
"Organismes privés à financement public prédominant",
"Entreprises publiques"),
indicateur == "Total") |>
ggplot(aes(x = annee, y = valeur, color = categorie)) +
geom_line(linewidth = 1) +
scale_color_brewer(palette = "Set1", name = NULL) +
theme_minimal(base_size = 9) +
labs(x = NULL, y = "Milliers d'agents",
title = "Effectifs du service public au sens large, hors fonction publique",
subtitle = "organismes publics, organismes à financement public prédominant, entreprises publiques, 2011-2018") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())
fig8 |>
filter(!annee_revisee,
indicateur %in% c("Total y compris bénéficiaires de contrats aidés", "Total",
"Total(5)")) |>
filter(categorie %in% c("Fonction publique(2)", "Emploi total \r\n(salariés et non-salariés)") |
str_detect(indicateur, "y compris")) |>
mutate(serie = if_else(str_detect(indicateur, "y compris"), "Fonction publique", "Emploi total")) |>
ggplot(aes(x = annee, y = valeur / 1000, color = serie)) +
geom_line(linewidth = 1) +
scale_color_manual(values = c("Fonction publique" = "#1B3F8B", "Emploi total" = "#E8737A"), name = NULL) +
theme_minimal(base_size = 12) +
labs(x = NULL, y = "Millions",
title = "Fonction publique et emploi total",
subtitle = "2011-2018") +
theme(legend.position = "bottom", panel.grid.minor = element_blank())