Bilan énergétique de la France - révisions des données entre millésimes (2018-2025) - bilan_energetique_revisions

Données - SDES

Chaque année, le SDES republie l’intégralité des séries longues du bilan énergétique de la France : les dernières années, encore provisoires, sont ensuite révisées d’un millésime à l’autre. On compare ici, pour une même année, la valeur publiée par chacun des 7 millésimes disponibles (2018 à 2025).

Consommation primaire, France, données réelles

Code
bilan_energetique_revisions |>
  filter(LIBSERIE == "Consommation primaire d'énergie, toutes énergies confondues",
         NIVGEO == "France", TYPDONNEE == "Réelles") |>
  ggplot() + geom_line(aes(x = annee, y = value, color = millesime), linewidth = 0.8) +
  theme_minimal() + xlab("") + ylab("TWh") +
  theme(legend.title = element_blank()) +
  scale_x_continuous(breaks = seq(1990, 2025, 5)) +
  scale_color_viridis_d()

Zoom sur les 8 dernières années de chaque millésime

Code
bilan_energetique_revisions |>
  filter(LIBSERIE == "Consommation primaire d'énergie, toutes énergies confondues",
         NIVGEO == "France", TYPDONNEE == "Réelles") |>
  group_by(millesime) |>
  filter(annee >= max(annee) - 7) |>
  ggplot() + geom_line(aes(x = annee, y = value, color = millesime), linewidth = 1) +
  geom_point(aes(x = annee, y = value, color = millesime), size = 1.5) +
  theme_minimal() + xlab("") + ylab("TWh") +
  theme(legend.title = element_blank()) +
  scale_color_viridis_d()

Production primaire d’électricité nucléaire

Code
bilan_energetique_revisions |>
  filter(LIBSERIE == "Production nette d'électricité nucléaire",
         NIVGEO == "France", TYPDONNEE == "Réelles") |>
  ggplot() + geom_line(aes(x = annee, y = value, color = millesime), linewidth = 0.8) +
  theme_minimal() + xlab("") + ylab("TWh") +
  theme(legend.title = element_blank()) +
  scale_x_continuous(breaks = seq(1990, 2025, 5)) +
  scale_color_viridis_d()

Taux d’indépendance énergétique

Code
bilan_energetique_revisions |>
  filter(LIBSERIE == "Taux d'indépendance énergétique",
         NIVGEO == "France", TYPDONNEE == "Réelles") |>
  ggplot() + geom_line(aes(x = annee, y = value, color = millesime), linewidth = 0.8) +
  theme_minimal() + xlab("") + ylab("%") +
  theme(legend.title = element_blank()) +
  scale_x_continuous(breaks = seq(1990, 2025, 5)) +
  scale_color_viridis_d()