Prime de partage de la valeur du secteur privé, par trimestre, par région - prime-partage-valeur-du-secteur-prive-par-trimestre-par-region

Données - ACOSS

Structure

Part des établissements versant une prime, par région (dernier trimestre)

Code
`prime-partage-valeur-region` |>
  filter(dernier_jour_du_trimestre == max(dernier_jour_du_trimestre)) |>
  mutate(region = fct_reorder(region, part_etablissements_avec_primes)) |>
  ggplot() + geom_col(aes(x = region, y = part_etablissements_avec_primes / 100)) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("") +
  scale_y_continuous(labels = percent_format(accuracy = 1))

Prime moyenne par bénéficiaire, par région

Code
`prime-partage-valeur-region` |>
  group_by(region, 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_line(aes(x = dernier_jour_du_trimestre, y = montant_ppv_moyen_par_indiv, color = region)) +
  theme_minimal() + xlab("") + ylab("Prime moyenne par bénéficiaire (€)") +
  scale_x_date(date_breaks = "1 year", labels = date_format("%Y")) +
  theme(legend.position = "none",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))