Last data update: 10 sept. 2026, 18:28
Last compile: 19 sept. 2026, 16:35
`assiette-chomage-partiel` |>
group_by(grand_secteur_d_activite, dernier_jour_du_trimestre) |>
summarise(part_assiette_chomage_partiel = sum(assiette_chomage_partiel) / sum(masse_salariale_brute),
.groups = "drop") |>
ggplot() + geom_line(aes(x = dernier_jour_du_trimestre, y = part_assiette_chomage_partiel,
color = grand_secteur_d_activite)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(date_breaks = "1 year", labels = date_format("%Y")) +
scale_y_continuous(labels = percent_format(accuracy = 1)) +
scale_color_viridis_d() +
theme(legend.position = "bottom", legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
`assiette-chomage-partiel` |>
group_by(dernier_jour_du_trimestre) |>
summarise(glissement_annuel_de_la_ms = weighted.mean(glissement_annuel_de_la_ms, masse_salariale_brute, na.rm = T),
.groups = "drop") |>
ggplot() + geom_col(aes(x = dernier_jour_du_trimestre, y = glissement_annuel_de_la_ms / 100)) +
theme_minimal() + xlab("") + ylab("Glissement annuel (secteur privé)") +
scale_x_date(date_breaks = "1 year", labels = date_format("%Y")) +
scale_y_continuous(labels = percent_format(accuracy = 1)) +
theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))