Montant des pensions de la fonction publique - FT5.3-SL_Montant_pensions_FP

Données - DGAFP

Pension moyenne des nouveaux retraités (flux)

Code
`FT5.3-SL_Montant_pensions_FP` |>
  filter(mesure == "Montant moyen des pensions entrées en paiement (flux, par effectif)",
         indicateur == "Montant mensuel moyen de la retraite totale de droit direct (en euros)",
         sous_regime %in% c("Pensions civiles hors La Poste et Orange", "Pensions militaires") |
           regime == "CNRACL (fonction publique territoriale et hospitalière)") |>
  mutate(serie = if_else(regime == "SRE (fonction publique de l'État)", paste("SRE -", sous_regime),
                          paste(regime, "-", sous_regime))) |>
  ggplot(aes(x = annee, y = valeur, color = serie)) +
  geom_line(linewidth = 1) +
  scale_color_brewer(palette = "Set1", name = NULL) +
  theme_minimal(base_size = 9) +
  labs(x = NULL, y = "€ par mois",
       title = "Montant mensuel moyen de la pension de droit direct",
       subtitle = "pensions entrées en paiement dans l'année (flux)") +
  theme(legend.position = "bottom", panel.grid.minor = element_blank()) +
  guides(color = guide_legend(ncol = 1))

Code
`FT5.3-SL_Montant_pensions_FP` |>
  filter(mesure == "Montant moyen des pensions entrées en paiement (flux, par effectif)",
         indicateur %in% c("Hommes", "Femmes"),
         regime == "SRE (fonction publique de l'État)",
         sous_regime == "Pensions civiles hors La Poste et Orange") |>
  ggplot(aes(x = annee, y = valeur, color = indicateur)) +
  geom_line(linewidth = 1) +
  scale_color_manual(values = c("Hommes" = "#1B3F8B", "Femmes" = "#E8737A"), name = NULL) +
  theme_minimal(base_size = 11) +
  labs(x = NULL, y = "€ par mois",
       title = "Pension moyenne de droit direct selon le sexe",
       subtitle = "SRE, pensions civiles hors La Poste et Orange, flux") +
  theme(legend.position = "bottom", panel.grid.minor = element_blank())

Indice et taux de liquidation (flux)

Code
`FT5.3-SL_Montant_pensions_FP` |>
  filter(mesure == "Pension moyenne, indice et taux de liquidation (flux)",
         indicateur == "Taux de liquidation (en %)",
         regime == "SRE (fonction publique de l'État)",
         sous_regime == "Pensions civiles hors La Poste et Orange") |>
  ggplot(aes(x = annee, y = valeur / 100)) +
  geom_line(linewidth = 1, color = "#1B3F8B") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1)) +
  theme_minimal(base_size = 12) +
  labs(x = NULL, y = NULL,
       title = "Taux de liquidation moyen des pensions civiles de l'État",
       subtitle = "flux, pensions civiles hors La Poste et Orange") +
  theme(panel.grid.minor = element_blank())

Pension moyenne des retraités (stock)

Code
`FT5.3-SL_Montant_pensions_FP` |>
  filter(mesure == "Montant moyen des pensions versées (stock, par effectif)",
         indicateur == "Montant mensuel moyen de la retraite totale de droit direct (en euros)",
         sous_regime %in% c("Pensions civiles hors La Poste et Orange", "Pensions militaires") |
           regime == "CNRACL (fonction publique territoriale et hospitalière)") |>
  mutate(serie = if_else(regime == "SRE (fonction publique de l'État)", paste("SRE -", sous_regime),
                          paste(regime, "-", sous_regime))) |>
  ggplot(aes(x = annee, y = valeur, color = serie)) +
  geom_line(linewidth = 1) +
  scale_color_brewer(palette = "Set1", name = NULL) +
  theme_minimal(base_size = 9) +
  labs(x = NULL, y = "€ par mois",
       title = "Montant mensuel moyen de la pension de droit direct",
       subtitle = "ensemble des pensions versées dans l'année (stock)") +
  theme(legend.position = "bottom", panel.grid.minor = element_blank()) +
  guides(color = guide_legend(ncol = 1))