Salaires nets horaires moyens par commune, sexe et catégorie socioprofessionnelle - base-cc-dads-salaires-communes

Données - INSEE

Distribution des salaires communaux par catégorie, dernière année disponible

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

Communes aux salaires “Ensemble” les plus élevés, dernière année disponible

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

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

Code
`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")