Figure 1 – Salaires mensuels nets moyens en EQTP dans la fonction publique - ECRT2025-F28

Données - INSEE

Salaires mensuels nets moyens en EQTP dans la fonction publique

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 = "salaires en euros, évolutions en % en euros constants", y = NULL,
       title = str_wrap("Salaires mensuels nets moyens en EQTP dans la fonction publique", 75)) +
  theme(legend.position = "none")

Salaires mensuels nets moyens en EQTP dans la fonction publique de l’État depuis 2000

Code
d2 |>
  filter(!is.na(valeur), !is.na(annee), !total100) |>
  ggplot(aes(x = annee, y = valeur, color = cle, group = cle)) +
  geom_line(linewidth = 1.1) +
  geom_point(size = 1.4) +
  scale_color_brewer(palette = "Dark2", name = NULL, labels = scales::label_wrap(45)) +
  theme_pub() +
  labs(x = NULL, y = "en euros constants 2022",
       title = str_wrap("Salaires mensuels nets moyens en EQTP dans la fonction publique de l'État depuis 2000", 75)) +
  guides(color = guide_legend(ncol = 2))

Salaires mensuels nets moyens en EQTP dans la fonction publique territoriale depuis 2000

Code
d3 |>
  filter(!is.na(valeur), !is.na(annee), !total100) |>
  ggplot(aes(x = annee, y = valeur, color = cle, group = cle)) +
  geom_line(linewidth = 1.1) +
  geom_point(size = 1.4) +
  scale_color_brewer(palette = "Dark2", name = NULL, labels = scales::label_wrap(45)) +
  theme_pub() +
  labs(x = NULL, y = "en euros constants 2022",
       title = str_wrap("Salaires mensuels nets moyens en EQTP dans la fonction publique territoriale depuis 2000", 75)) +
  guides(color = guide_legend(ncol = 2))

Salaires mensuels nets moyens en EQTP dans la fonction publique hospitalière depuis 2011

Code
d4 |>
  filter(!is.na(valeur), !is.na(annee), !total100) |>
  ggplot(aes(x = annee, y = valeur, color = cle, group = cle)) +
  geom_line(linewidth = 1.1) +
  geom_point(size = 1.4) +
  scale_color_brewer(palette = "Dark2", name = NULL, labels = scales::label_wrap(45)) +
  theme_pub() +
  labs(x = NULL, y = "en euros constants 2022",
       title = str_wrap("Salaires mensuels nets moyens en EQTP dans la fonction publique hospitalière depuis 2011", 75)) +
  guides(color = guide_legend(ncol = 2))

Rémunération moyenne des personnes en place en 2021 et 2022

Code
d5 |>
  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 = "parts en %, évolutions en % en euros constants", y = NULL,
       title = str_wrap("Rémunération moyenne des personnes en place en 2021 et 2022", 75)) +
  theme(legend.position = "none")