Last observation: 2025 (N = 240)
First observation: 2020 (N = 240)
Last data update: 10 oct. 2026, 00:32
Last compile: 10 oct. 2026, 00:34
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()
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()
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()
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()
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)))