Last observation: 2024 (N = 35)
First observation: 1960 (N = 1)
Last data update: 20 oct. 2026, 00:58
Last compile: 20 oct. 2026, 01:00
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)))
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")
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()
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)))
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()
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()
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")
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()
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()