Bénéficiaires de contrats aidés et emploi public au sens large - FT1.1-SL_Effectifs

Données - DGAFP

Figure 1.1-7 : bénéficiaires de contrats aidés par versant

Code
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())

Figure 1.1-8 : fonction publique, service public et emploi total

Code
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())

Code
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())

Code
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())