Last data update: 02 août 2026, 11:04
Last compile: 28 sept. 2026, 22:44
ip1877_fig2 |>
slice_max(part_de_l_emploi_sous_controle_etranger_en_percent, n = 20) |>
mutate(libelle_de_la_zone_d_emploi = fct_reorder(libelle_de_la_zone_d_emploi, part_de_l_emploi_sous_controle_etranger_en_percent)) |>
ggplot() + geom_col(aes(x = libelle_de_la_zone_d_emploi, y = part_de_l_emploi_sous_controle_etranger_en_percent, fill = part_de_l_emploi_sous_controle_etranger_en_percent), show.legend = F) +
coord_flip() +
theme_minimal() + xlab("") + ylab("Part de l'emploi sous contrôle étranger (%)") +
theme(axis.text.y = element_text(size = 7)) +
scale_fill_viridis_c()
ip1877_dep |>
slice_max(part_de_l_emploi_sous_controle_etranger_en_percent, n = 20) |>
mutate(dep = fct_reorder(dep, part_de_l_emploi_sous_controle_etranger_en_percent)) |>
ggplot() + geom_col(aes(x = dep, y = part_de_l_emploi_sous_controle_etranger_en_percent, fill = part_de_l_emploi_sous_controle_etranger_en_percent), show.legend = F) +
coord_flip() +
theme_minimal() + xlab("") + ylab("Part de l'emploi sous contrôle étranger (%)") +
scale_fill_viridis_c()