Last data update: 21 sept. 2026, 15:56
Last compile: 21 sept. 2026, 16:03
Structure
Évolution des effectifs hospitaliers salariés (secteur public)
Code
`effectifs-hospitaliers` |>
filter(secteur == "Public") |>
ggplot() + geom_area(aes(x = annee, y = effectifs, fill = professions)) +
theme_minimal() + xlab("") + ylab("Effectifs") +
scale_x_continuous(breaks = scales::pretty_breaks()) +
scale_y_continuous(labels = comma_format(big.mark = " ")) +
scale_fill_viridis_d() +
theme(legend.position = "bottom", legend.title = element_blank()) +
guides(fill = guide_legend(nrow = 4))
Public vs privé, par profession
Code
`effectifs-hospitaliers` |>
ggplot() + geom_line(aes(x = annee, y = effectifs, color = secteur)) +
facet_wrap(~professions, scales = "free_y", labeller = labeller(professions = scales::label_wrap(25))) +
theme_minimal() + xlab("") + ylab("Effectifs") +
scale_x_continuous(breaks = scales::pretty_breaks()) +
scale_y_continuous(labels = comma_format(big.mark = " ")) +
scale_color_viridis_d() +
theme(legend.position = "bottom", legend.title = element_blank(),
strip.text = element_text(size = 7.5),
axis.text.x = element_text(size = 6, angle = 45, vjust = 1, hjust = 1))
Croissance des effectifs depuis 2003
Code
`effectifs-hospitaliers` |>
group_by(secteur, professions) |>
summarise(croissance = effectifs[annee == max(annee)] / effectifs[annee == min(annee)] - 1,
.groups = "drop") |>
ggplot() + geom_col(aes(x = reorder(professions, croissance), y = croissance, fill = secteur), position = "dodge") +
coord_flip() +
theme_minimal() + xlab("") +
ylab(paste0("Croissance des effectifs, ", min(`effectifs-hospitaliers`$annee), "-", max(`effectifs-hospitaliers`$annee))) +
scale_y_continuous(labels = percent_format(accuracy = 1)) +
scale_fill_viridis_d() +
theme(legend.position = "bottom", legend.title = element_blank())
Répartition par profession, dernière année
Code
`effectifs-hospitaliers` |>
filter(annee == max(annee)) |>
ggplot() + geom_col(aes(x = secteur, y = effectifs, fill = professions), position = "fill") +
coord_flip() +
theme_minimal() + xlab("") + ylab(paste("Répartition des effectifs,", max(`effectifs-hospitaliers`$annee))) +
scale_y_continuous(labels = percent_format(accuracy = 1)) +
scale_fill_viridis_d() +
theme(legend.position = "bottom", legend.title = element_blank()) +
guides(fill = guide_legend(nrow = 4))