Salaires mensuels nets moyens en EQTP dans la fonction publique - ECRT-salaires-fonction-publique

Données - INSEE

Insee Références “Emploi, chômage, revenus du travail” : salaires mensuels nets moyens en équivalent temps plein (EQTP) dans la fonction publique, par versant (État, territoriale, hospitalière, ensemble).

Évolution par versant, ensemble des agents

Code
`ECRT-salaires-fonction-publique` |>
  filter(str_detect(categorie, "^Ensemble y c")) |>
  ggplot() + geom_line(aes(x = annee, y = value, color = versant), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("Salaire net mensuel moyen en EQTP (€)") +
  theme(legend.title = element_blank()) +
  scale_color_viridis_d()

Par catégorie de fonctionnaire, dernière année disponible

Code
`ECRT-salaires-fonction-publique` |>
  filter(annee == max(annee), versant == "Ensemble",
         categorie %in% c("Catégorie A", "Catégorie B", "Catégorie C")) |>
  mutate(categorie = fct_reorder(categorie, value)) |>
  ggplot() + geom_col(aes(x = categorie, y = value, fill = value), show.legend = F) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("Salaire net mensuel moyen en EQTP (€)") +
  scale_fill_viridis_c()

Écart hommes-femmes, dernière année disponible

Code
`ECRT-salaires-fonction-publique` |>
  filter(annee == max(annee), categorie %in% c("Femmes", "Hommes")) |>
  spread(categorie, value) |>
  mutate(ecart = 100 * (Hommes - Femmes) / Femmes, versant = fct_reorder(versant, ecart)) |>
  ggplot() + geom_col(aes(x = versant, y = ecart, fill = ecart), show.legend = F) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("Écart de salaire Hommes-Femmes (%)") +
  scale_fill_viridis_c()