Last data update: 28 sept. 2026, 22:52
Last compile: 28 sept. 2026, 22:52
ip1861_fig1 |>
filter(categorie %in% c("Fonctionnaires", "Non-fonctionnaires", "Salariés des ministères",
"Salariés des établissements publics administratifs")) |>
mutate(categorie = fct_reorder(categorie, salaire_net)) |>
ggplot() + geom_col(aes(x = categorie, y = salaire_net, fill = salaire_net), show.legend = F) +
coord_flip() +
theme_minimal() + xlab("") + ylab("Salaire net mensuel moyen en EQTP (€)") +
scale_fill_viridis_c()
ip1861_fig2 |>
ggplot() + geom_line(aes(x = annee, y = salaire_net_moyen), color = rgb(0.2, 0.4, 0.65), linewidth = 1) +
theme_minimal() + xlab("") + ylab("Salaire net mensuel moyen en EQTP (€, constants)")