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