Les Français et le pouvoir d’achat (Elabe pour BFMTV, 16 septembre 2026) - pouvoir-achat-16092026

Name: Les Français et le pouvoir d'achat (Elabe pour BFMTV, 16 septembre 2026)
Creator: François Geerolf

Auteur

Sondage Elabe pour BFMTV, 15-16 septembre 2026, 1 012 personnes (méthode des quotas, Internet). Source : elabe.fr. Les résultats ne sont publiés que dans le rapport PDF ; pouvoir-achat-16092026.R lit ses tableaux croisés (pages « Détail des résultats ») : le parquet donne, pour chaque question, les résultats pour l’ensemble des Français (groupe = "Ensemble") et par catégorie sociodémographique ou politique. Les évolutions par rapport aux sondages précédents ne sont pas reprises.

Pouvoir d’achat dans les prochains mois

71 % des Français s’attendent à une dégradation de leur pouvoir d’achat (+21 points depuis juin 2025).

Code

d |>
  filter(question == "avenir_pouvoir_achat", type == "sociodemographique", groupe == "Ensemble",
         modalite %in% c("Beaucoup se dégrader", "Un peu se dégrader", "Rester stable",
                         "Un peu s'améliorer", "Beaucoup s'améliorer")) |>
  mutate(modalite = factor(modalite, levels = c("Beaucoup se dégrader", "Un peu se dégrader", "Rester stable",
                                                "Un peu s'améliorer", "Beaucoup s'améliorer"))) |>
  ggplot(aes(x = valeur, y = modalite)) +
  geom_col(fill = "#2c7fb8") + geom_text(aes(label = paste0(valeur, " %")), hjust = -0.15) +
  scale_y_discrete(limits = rev) + scale_x_continuous(expand = expansion(mult = c(0, 0.12))) +
  labs(x = "% des Français", y = NULL) + theme_minimal()

Part qui s’attend à une dégradation, par catégorie

Code

segments("avenir_pouvoir_achat", "Total se dégrader",
         c("Sexe", "Âge", "Profession", "Catégorie d'agglomération", "Région de résidence"))

Code

segments("avenir_pouvoir_achat", "Total se dégrader",
         c("Préférence partisane", "Présidentielle 2022 (1er tour)", "Législatives 2024 (1er tour)"),
         type_ = "politique")

Postes de dépense qui ont le plus augmenté

Code

barres("postes_depense", "% de citations (3 réponses possibles)")

Renoncements pour des raisons financières

Code

barres("renoncements", "% des Français (plusieurs réponses possibles)")

Mesures proposées : total favorable

Code

barres("mesures", "% de favorables")

Confiance pour améliorer le pouvoir d’achat

Code

barres("confiance", "% de confiance")

Confiance selon la préférence partisane

Code

ordre <- d |> filter(question == "confiance", type == "politique", groupe == "Ensemble") |>
  arrange(valeur) |> pull(modalite)
etiq <- c("TOTAL GAUCHE" = "Gauche", "TOTAL RENAISSANCE ET ALLIES" = "Renaissance\net alliés",
          "TOTAL DROITE" = "Droite", "TOTAL RN ET ALLIES" = "RN\net alliés",
          "Ensemble" = "Ensemble")
d |>
  filter(question == "confiance", type == "politique",
         (groupe == "Préférence partisane" & segment %in% names(etiq)) | groupe == "Ensemble") |>
  mutate(segment = factor(unname(etiq[ifelse(groupe == "Ensemble", "Ensemble", segment)]),
                          levels = unname(etiq)),
         modalite = factor(modalite, levels = ordre)) |>
  ggplot(aes(x = segment, y = modalite, fill = valeur)) +
  geom_tile(colour = "white") + geom_text(aes(label = valeur, colour = valeur > 55), size = 3) +
  scale_fill_viridis_c(direction = -1, guide = "none") +
  scale_colour_manual(values = c("black", "white"), guide = "none") +
  labs(x = NULL, y = NULL) + theme_minimal() + theme(panel.grid = element_blank())