Bilan énergétique de la France - figures des rapports 2024 et 2025 - sdesstatistiques_donnees_des_figures_du_bilan_energetique_provisoire_de_la_france_2025

Données - SDES

Indépendance énergétique

Code
sdesstatistiques_donnees_des_figures_du_bilan_energetique_provisoire_de_la_france_2025 |>
  filter(figure == "2024_consommation_production_independance", serie != "Taux d'indépendance énergétique") |>
  ggplot() + geom_line(aes(x = date, y = value, color = serie), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("TWh") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  scale_x_date(date_labels = "%Y", date_breaks = "5 years") +
  scale_color_manual(values = c("Consommation primaire réelle" = rgb(0.75, 0.3, 0.2), "Production primaire" = rgb(0.2, 0.45, 0.35)))

Code
sdesstatistiques_donnees_des_figures_du_bilan_energetique_provisoire_de_la_france_2025 |>
  filter(figure == "2024_consommation_production_independance", serie == "Taux d'indépendance énergétique") |>
  ggplot() + geom_line(aes(x = date, y = value), color = rgb(0.2, 0.4, 0.65), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("Taux d'indépendance énergétique (%)") +
  scale_x_date(date_labels = "%Y", date_breaks = "5 years")

Production d’énergie primaire

Code
sdesstatistiques_donnees_des_figures_du_bilan_energetique_provisoire_de_la_france_2025 |>
  filter(figure == "2025_production_primaire") |>
  mutate(serie = fct_reorder(serie, value, .fun = last, .desc = TRUE)) |>
  ggplot() + geom_area(aes(x = date, y = value, fill = serie)) +
  theme_minimal() + xlab("") + ylab("TWh") +
  theme(legend.title = element_blank()) +
  scale_x_date(date_labels = "%Y", date_breaks = "5 years") +
  scale_fill_viridis_d()

Origine des importations de gaz naturel, dernière année disponible

Code
sdesstatistiques_donnees_des_figures_du_bilan_energetique_provisoire_de_la_france_2025 |>
  filter(figure == "2025_origine_gaz") |>
  mutate(serie = fct_reorder(serie, value, .fun = sum)) |>
  ggplot() + geom_col(aes(x = serie, y = value, fill = categorie)) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("TWh PCS") +
  theme(legend.title = element_blank()) +
  scale_fill_manual(values = c("Gaz gazeux" = rgb(0.2, 0.45, 0.35), "GNL" = rgb(0.75, 0.5, 0.15)))

Facture énergétique de la France

Code
sdesstatistiques_donnees_des_figures_du_bilan_energetique_provisoire_de_la_france_2025 |>
  filter(figure == "2025_facture_energetique") |>
  mutate(serie = fct_reorder(serie, value, .fun = last, .desc = TRUE)) |>
  ggplot() + geom_col(aes(x = date, y = value, fill = serie)) +
  theme_minimal() + xlab("") + ylab("Milliards d'euros 2025") +
  theme(legend.title = element_blank()) +
  scale_x_date(date_labels = "%Y", date_breaks = "5 years") +
  scale_fill_viridis_d()

Dépense nationale en énergie, décomposition

Code
sdesstatistiques_donnees_des_figures_du_bilan_energetique_provisoire_de_la_france_2025 |>
  filter(figure == "2024_decomposition_depense_nationale") |>
  mutate(serie = fct_reorder(serie, value, .fun = last, .desc = TRUE)) |>
  ggplot() + geom_col(aes(x = date, y = value, fill = serie)) +
  theme_minimal() + xlab("") + ylab("Millions d'euros courants") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(fill = guide_legend(nrow = 4)) +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  scale_fill_viridis_d()

Part de l’énergie dans le budget des ménages

Code
sdesstatistiques_donnees_des_figures_du_bilan_energetique_provisoire_de_la_france_2025 |>
  filter(figure == "2024_part_energie_budget_menages") |>
  ggplot() + geom_line(aes(x = date, y = value), color = rgb(0.6, 0.2, 0.35), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("% du budget des ménages") +
  scale_x_date(date_labels = "%Y", date_breaks = "5 years")

Dépense moyenne annuelle par ménage

Code
sdesstatistiques_donnees_des_figures_du_bilan_energetique_provisoire_de_la_france_2025 |>
  filter(figure == "2024_depense_moyenne_menage") |>
  mutate(serie = str_wrap(serie, 30)) |>
  ggplot() + geom_line(aes(x = date, y = value, color = serie), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("Euros par ménage et par an") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 3)) +
  scale_x_date(date_labels = "%Y") +
  scale_color_viridis_d()

Prix de la consommation finale énergétique par secteur

Code
sdesstatistiques_donnees_des_figures_du_bilan_energetique_provisoire_de_la_france_2025 |>
  filter(figure == "2024_prix_consommation_finale_secteur", serie != "Consommation finale énergétique (hors charbon hauts-fourneaux)") |>
  ggplot() + geom_line(aes(x = date, y = value, color = serie), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("€/MWh") +
  theme(legend.title = element_blank()) +
  scale_x_date(date_labels = "%Y") +
  scale_color_viridis_d()