Bilan énergétique physique de la France - révisions des tableaux de synthèse entre millésimes - bilan_energetique_tableaux_synthese_revisions

Données - SDES

Les tableaux de synthèse du bilan énergétique physique (production, échanges extérieurs, transformation, consommation finale par secteur) sont republiés chaque année avec quelques années d’historique ; on compare ici, pour une même année, la valeur publiée par chacun des 5 millésimes disponibles (2020 à 2025).

Consommation finale énergétique, toutes énergies

Code
bilan_energetique_tableaux_synthese_revisions |>
  filter(flux == "Consommation finale", energie == "Total") |>
  ggplot() + geom_point(aes(x = annee, y = value, color = millesime), size = 2.5) +
  geom_line(aes(x = annee, y = value, color = millesime), linewidth = 0.5, alpha = 0.5) +
  theme_minimal() + xlab("") + ylab("TWh") +
  theme(legend.title = element_blank()) +
  scale_x_continuous(breaks = 2015:2025) +
  scale_color_viridis_d()

Consommation primaire, toutes énergies

Code
bilan_energetique_tableaux_synthese_revisions |>
  filter(flux == "Consommation primaire", energie == "Total") |>
  ggplot() + geom_point(aes(x = annee, y = value, color = millesime), size = 2.5) +
  geom_line(aes(x = annee, y = value, color = millesime), linewidth = 0.5, alpha = 0.5) +
  theme_minimal() + xlab("") + ylab("TWh") +
  theme(legend.title = element_blank()) +
  scale_x_continuous(breaks = 2015:2025) +
  scale_color_viridis_d()

Production d’énergie primaire nucléaire

Code
bilan_energetique_tableaux_synthese_revisions |>
  filter(flux == "Production d'énergie primaire", energie == "Nucléaire") |>
  ggplot() + geom_point(aes(x = annee, y = value, color = millesime), size = 2.5) +
  geom_line(aes(x = annee, y = value, color = millesime), linewidth = 0.5, alpha = 0.5) +
  theme_minimal() + xlab("") + ylab("TWh") +
  theme(legend.title = element_blank()) +
  scale_x_continuous(breaks = 2015:2025) +
  scale_color_viridis_d()

Consommation finale par secteur, dernière année de chaque millésime

Code
bilan_energetique_tableaux_synthese_revisions |>
  filter(energie == "Total", flux %in% c("Industrie", "Transport", "Résidentiel", "Tertiaire", "Agriculture")) |>
  group_by(millesime) |>
  filter(annee == max(annee)) |>
  ggplot() + geom_col(aes(x = millesime, y = value, fill = flux)) +
  theme_minimal() + xlab("") + ylab("TWh, toutes énergies") +
  theme(legend.title = element_blank()) +
  scale_fill_viridis_d()