Prime de partage de la valeur du secteur privé, par trimestre, France entière x secteur N38 - prime-partage-valeur-du-secteur-prive-par-trimestre-france-entiere-x-secteur-n38

Données - ACOSS

Structure

Part des établissements versant une prime

Code
`prime-partage-valeur-secteur` |>
  group_by(grand_secteur_d_activite, dernier_jour_du_trimestre) |>
  summarise(nombre_etablissement_prime_ppv = sum(nombre_etablissement_prime_ppv),
            total_etablissements_actifs = sum(as.numeric(total_etablissements_actifs)),
            .groups = "drop") |>
  mutate(part = nombre_etablissement_prime_ppv / total_etablissements_actifs) |>
  ggplot() + geom_line(aes(x = dernier_jour_du_trimestre, y = part, 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))

Montant moyen de la prime par bénéficiaire

Code
`prime-partage-valeur-secteur` |>
  group_by(dernier_jour_du_trimestre) |>
  summarise(montant_ppv_moyen_par_indiv = weighted.mean(montant_ppv_moyen_par_indiv, nombre_individus_prime_ppv, na.rm = T),
            .groups = "drop") |>
  ggplot() + geom_col(aes(x = dernier_jour_du_trimestre, y = montant_ppv_moyen_par_indiv)) +
  theme_minimal() + xlab("") + ylab("Prime moyenne par bénéficiaire (€)") +
  scale_x_date(date_breaks = "1 year", labels = date_format("%Y")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))