Masse salariale du secteur privé, France entière - masse-salariale-du-secteur-prive-france-entiere

Données - ACOSS

Masse salariale (CVS)

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

Glissement trimestriel et annuel (CVS)

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

Révision entre l’estimation à 50 jours et à 60 jours

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