Chiffres clés de l’énergie, édition 2021 - production, consommation, prix et CO2 - chiffres_clefs_energie2021_donnees_figures

Données - SDES

Last observation: mars 2021 (N = 4)

First observation: janv. 1970 (N = 7)

Last data update: 28 sept. 2026, 20:08

Last compile: 28 sept. 2026, 20:09

Production d’énergie primaire

chiffres_clefs_energie2021_donnees_figures |>
  filter(figure == "p24-prod", categorie != "Total") |>
  mutate(categorie = fct_reorder(categorie, value, .fun = last, .desc = TRUE)) |>
  ggplot() + geom_area(aes(x = date, y = value, fill = categorie)) +
  theme_minimal() + xlab("") + ylab("TWh") +
  theme(legend.title = element_blank()) +
  scale_x_date(date_labels = "%Y", date_breaks = "5 years") +
  scale_fill_viridis_d()

Consommation d’énergie

Consommation primaire par énergie

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

Consommation finale par secteur

chiffres_clefs_energie2021_donnees_figures |>
  filter(figure == "p30", categorie != "Total") |>
  mutate(categorie = fct_reorder(categorie, value, .fun = last, .desc = TRUE)) |>
  ggplot() + geom_area(aes(x = date, y = value, fill = categorie)) +
  theme_minimal() + xlab("") + ylab("TWh, données corrigées des variations climatiques") +
  theme(legend.title = element_blank()) +
  scale_x_date(date_labels = "%Y", date_breaks = "5 years") +
  scale_fill_viridis_d()

Consommation primaire, finale et pertes

chiffres_clefs_energie2021_donnees_figures |>
  filter(figure == "p 27-S") |>
  mutate(categorie = factor(categorie, levels = c("Consommation primaire", "Consommation finale énergétique",
                                                   "Consommation finale non énergétique",
                                                   "Pertes de transformation, de transport et de distribution"))) |>
  ggplot() + geom_line(aes(x = date, y = value, color = categorie), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("TWh") +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 2)) +
  scale_x_date(date_labels = "%Y", date_breaks = "5 years") +
  scale_color_viridis_d()

Émissions de CO2

chiffres_clefs_energie2021_donnees_figures |>
  filter(figure == "p40", categorie == "Émissions par habitant") |>
  ggplot() + geom_line(aes(x = date, y = value), color = rgb(0.6, 0.2, 0.2), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("Tonnes de CO2 par habitant") +
  scale_x_date(date_labels = "%Y", date_breaks = "5 years")

chiffres_clefs_energie2021_donnees_figures |>
  filter(figure == "p40", categorie == "Émissions par unité de PIB") |>
  ggplot() + geom_line(aes(x = date, y = value), color = rgb(0.6, 0.2, 0.2), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("Tonnes de CO2 par M€2020 de PIB") +
  scale_x_date(date_labels = "%Y", date_breaks = "5 years")

Prix de l’énergie

Prix du gaz naturel pour les entreprises, comparaison UE

chiffres_clefs_energie2021_donnees_figures |>
  filter(figure == "p11") |>
  mutate(categorie = str_remove(categorie, "1$") |> str_trim()) |>
  ggplot() + geom_line(aes(x = date, y = value, color = categorie), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("€/MWh PCS, hors TVA") +
  theme(legend.title = element_blank()) +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  scale_color_viridis_d()

Prix de l’électricité pour les ménages, comparaison UE

chiffres_clefs_energie2021_donnees_figures |>
  filter(figure == "p13") |>
  mutate(categorie = str_remove(categorie, "1$") |> str_trim()) |>
  ggplot() + geom_line(aes(x = date, y = value, color = categorie), linewidth = 1) +
  theme_minimal() + xlab("") + ylab("€/MWh, TTC") +
  theme(legend.title = element_blank()) +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  scale_color_viridis_d()

Cours mensuels du pétrole et du gaz

chiffres_clefs_energie2021_donnees_figures |>
  filter(figure == "p7", categorie %in% c("Prix du Brent daté en $US/bl", "Prix du Brent daté en €/bl")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = categorie), linewidth = 0.8) +
  theme_minimal() + xlab("") + ylab("Prix du Brent daté") +
  theme(legend.title = element_blank()) +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  scale_color_manual(values = c("Prix du Brent daté en $US/bl" = rgb(0.2, 0.3, 0.55), "Prix du Brent daté en €/bl" = rgb(0.75, 0.5, 0.1)))

chiffres_clefs_energie2021_donnees_figures |>
  filter(figure == "p7", categorie %in% c("Prix spot du gaz NBP en €/MWh", "Prix spot du gaz NBP* en $/MWh")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = categorie), linewidth = 0.8) +
  theme_minimal() + xlab("") + ylab("Prix spot du gaz NBP") +
  theme(legend.title = element_blank()) +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  scale_color_manual(values = c("Prix spot du gaz NBP en €/MWh" = rgb(0.2, 0.3, 0.55), "Prix spot du gaz NBP* en $/MWh" = rgb(0.75, 0.5, 0.1)))