Last data update: 11 oct. 2026, 16:23
Last compile: 11 oct. 2026, 16:25
Sondage Elabe pour BFMTV, 6 juin 2025, 1 000 personnes (méthode des quotas, Internet). Source : elabe.fr. Rapport de trois pages, sans tableaux croisés : pouvoir-achat-06062025.R lit les résultats pour l’ensemble des Français et l’évolution (evolution, en points) par rapport à la vague précédente (janvier 2025 ; janvier 2024 pour l’anticipation du pouvoir d’achat).
« Se serrer la ceinture »
Code
d |>
filter(question == "serrer_ceinture_historique") |>
mutate(modalite = factor(modalite, levels = c("Non", "Oui, un peu", "Oui, beaucoup"))) |>
ggplot(aes(x = factor(date), y = valeur, fill = modalite)) +
geom_col() +
geom_text(aes(label = valeur), position = position_stack(vjust = 0.5), colour = "white", size = 3.5) +
scale_x_discrete(labels = function(x) format(as.Date(x), "%d/%m/%Y")) +
scale_fill_manual(values = c("Non" = "grey60", "Oui, un peu" = "#fc9272", "Oui, beaucoup" = "#de2d26")) +
labs(x = NULL, y = "% des Français", fill = NULL) + theme_minimal() + theme(legend.position = "top")
Renoncements pour des raisons financières
Évolution en points par rapport à janvier 2025 entre parenthèses.
Code
d |>
filter(question == "renoncements") |>
mutate(etiquette = ifelse(is.na(evolution), paste0(valeur, " %"),
ifelse(evolution == 0, paste0(valeur, " % (=)"),
sprintf("%s %% (%+d)", valeur, as.integer(evolution)))),
modalite = stringr::str_wrap(modalite, 50)) |>
ggplot(aes(x = valeur, y = reorder(modalite, valeur))) +
geom_col(fill = "#2c7fb8") +
geom_text(aes(label = etiquette), hjust = -0.1, size = 3.2) +
scale_x_continuous(expand = expansion(mult = c(0, 0.2))) +
labs(x = "% des Français", y = NULL) + theme_minimal()
Pouvoir d’achat dans les prochains mois
Évolution par rapport à janvier 2024 : total se dégrader 50 % (−11), rester stable 36 % (+14), total s’améliorer 13 % (−4).
Code
d |>
filter(question == "avenir_pouvoir_achat", !stringr::str_detect(modalite, "^Total")) |>
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", "Sans réponse"))) |>
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()