Assiette chômage partiel trimestrielle du secteur privé par NA38 - assiette-chomage-partiel-trimestrielle-du-secteur-prive-par-na38

Données - ACOSS

Structure

Part de la masse salariale couverte par le chômage partiel

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

Glissement annuel de la masse salariale

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