Last data update: 19 sept. 2026, 17:14
Last compile: 19 sept. 2026, 17:16
`masse-salariale-france-entiere` |>
ggplot() + geom_line(aes(x = dernier_jour_trim, y = ms_t_60j_cvs)) +
theme_minimal() + xlab("") + ylab("Masse salariale CVS (€)") +
scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
scale_y_continuous(labels = label_number(big.mark = " ", scale = 1e-9, suffix = " Md€")) +
theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
`masse-salariale-france-entiere` |>
select(dernier_jour_trim, `Glissement trimestriel` = gt_ms_t_60j_cvs,
`Glissement annuel` = ga_ms_t_60j_cvs) |>
gather(variable, value, -dernier_jour_trim) |>
filter(!is.na(value)) |>
ggplot() + geom_line(aes(x = dernier_jour_trim, y = value / 100, color = variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
scale_y_continuous(labels = percent_format(accuracy = 1)) +
scale_color_manual(values = viridis(3)[1:2]) +
theme(legend.position = "bottom", legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
`masse-salariale-france-entiere` |>
filter(!is.na(gt_ms_t_50j_cvs)) |>
mutate(ecart = ms_t_60j_cvs / ms_t_50j_cvs - 1) |>
ggplot() + geom_col(aes(x = dernier_jour_trim, y = ecart)) +
theme_minimal() + xlab("") + ylab("Écart 60j vs 50j (niveau CVS)") +
scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
scale_y_continuous(labels = percent_format(accuracy = 0.1)) +
theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))