Last data update: 10 sept. 2026, 18:29
Last compile: 19 sept. 2026, 16:35
`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-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))