Last observation: 2019 (N = 37450)
First observation: 2012 (N = 315)
Last data update: 28 sept. 2026, 21:46
Last compile: 28 sept. 2026, 21:46
`base-cc-dads-salaires-communes` |>
filter(annee == max(annee), categorie %in% c("Cadres", "Professions intermédiaires", "Employés", "Ouvriers")) |>
mutate(categorie = fct_reorder(categorie, value)) |>
ggplot() + geom_boxplot(aes(x = categorie, y = value, fill = categorie), show.legend = F) +
coord_flip() +
theme_minimal() + xlab("") + ylab("Salaire net horaire moyen (€), par commune") +
scale_fill_viridis_d()
`base-cc-dads-salaires-communes` |>
filter(annee == max(annee), categorie == "Ensemble") |>
slice_max(value, n = 20) |>
mutate(libelle_geo = fct_reorder(libelle_geo, value)) |>
ggplot() + geom_col(aes(x = libelle_geo, y = value, fill = value), show.legend = F) +
coord_flip() +
theme_minimal() + xlab("") + ylab("Salaire net horaire moyen (€)") +
theme(axis.text.y = element_text(size = 7)) +
scale_fill_viridis_c()
`base-cc-dads-salaires-communes` |>
filter(annee == max(annee), categorie %in% c("Hommes", "Femmes")) |>
spread(categorie, value) |>
filter(!is.na(Hommes), !is.na(Femmes)) |>
mutate(ecart = 100 * (Hommes - Femmes) / Femmes) |>
ggplot() + geom_histogram(aes(x = ecart), bins = 50, fill = rgb(0.6, 0.2, 0.35)) +
theme_minimal() + xlab("Écart de salaire hommes-femmes (%)") + ylab("Nombre de communes") +
geom_vline(xintercept = 0, linetype = "dashed")