Bilan énergétique physique de la France, tableaux de synthèse 2020-2025 - sdesstatistiques_tableaux_de_synthese_du_bilan_energetique_provisoire_de_la_france_en_2025

Données - SDES

Production d’énergie primaire, par énergie

Code
sdesstatistiques_tableaux_de_synthese_du_bilan_energetique_provisoire_de_la_france_en_2025 |>
  filter(flux == "Production d'énergie primaire", energie != "Total", value != 0) |>
  mutate(energie = fct_reorder(energie, value, .fun = last, .desc = TRUE)) |>
  ggplot() + geom_col(aes(x = date, y = value, fill = energie)) +
  theme_minimal() + xlab("") + ylab("TWh") +
  theme(legend.title = element_blank()) +
  scale_x_date(date_labels = "%Y") +
  scale_fill_viridis_d()

Consommation primaire, par énergie

Code
sdesstatistiques_tableaux_de_synthese_du_bilan_energetique_provisoire_de_la_france_en_2025 |>
  filter(flux == "Consommation primaire", energie != "Total", value != 0) |>
  mutate(energie = fct_reorder(energie, value, .fun = last, .desc = TRUE)) |>
  ggplot() + geom_col(aes(x = date, y = value, fill = energie)) +
  theme_minimal() + xlab("") + ylab("TWh") +
  theme(legend.title = element_blank()) +
  scale_x_date(date_labels = "%Y") +
  scale_fill_viridis_d()

Consommation finale énergétique, par secteur

Code
sdesstatistiques_tableaux_de_synthese_du_bilan_energetique_provisoire_de_la_france_en_2025 |>
  filter(flux %in% c("Industrie", "Transport", "Résidentiel", "Tertiaire", "Agriculture"), energie == "Total") |>
  mutate(flux = fct_reorder(flux, value, .fun = last, .desc = TRUE)) |>
  ggplot() + geom_col(aes(x = date, y = value, fill = flux)) +
  theme_minimal() + xlab("") + ylab("TWh, toutes énergies") +
  theme(legend.title = element_blank()) +
  scale_x_date(date_labels = "%Y") +
  scale_fill_viridis_d()

Consommation finale énergétique par secteur, détail par énergie (2025)

Code
sdesstatistiques_tableaux_de_synthese_du_bilan_energetique_provisoire_de_la_france_en_2025 |>
  filter(date == max(date), flux %in% c("Industrie", "Transport", "Résidentiel", "Tertiaire", "Agriculture"),
         energie != "Total", value != 0) |>
  ggplot() + geom_col(aes(x = flux, y = value, fill = energie)) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("TWh, dernière année disponible") +
  theme(legend.title = element_blank()) +
  scale_fill_viridis_d()

Solde des échanges extérieurs, par énergie (2025)

Code
sdesstatistiques_tableaux_de_synthese_du_bilan_energetique_provisoire_de_la_france_en_2025 |>
  filter(date == max(date), flux %in% c("Importations", "Exportations"), energie != "Total", value != 0) |>
  mutate(energie = fct_reorder(energie, abs(value), .fun = sum, .desc = TRUE)) |>
  ggplot() + geom_col(aes(x = energie, y = value, fill = flux)) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("TWh, dernière année disponible") +
  theme(legend.title = element_blank()) +
  scale_fill_manual(values = c("Importations" = rgb(0.75, 0.3, 0.2), "Exportations" = rgb(0.2, 0.45, 0.35)))