Bilan énergétique - bilan_energetique

Données - SDES

Auteur·rice

François Geerolf

Last observation: 2023 (N = 2040)

First observation: 1960 (N = 191)

Last data update: 01 août 2026, 21:07

Last compile: 04 sept. 2026, 01:41

CODTOT, LIBSERIE, UNITE

Code 
bilan_energetique |>
  group_by(CODTOT, LIBSERIE, UNITE) |>
  summarise(Nobs = n()) |>
  print_table_conditional()

ENERGIE

Code 
bilan_energetique |>
  group_by(ENERGIE) |>
  summarise(Nobs = n()) |>
  print_table_conditional()
ENERGIE Nobs
- 102
Chaleur vendue 1433
Charbon 4974
EnR et déchets 7197
Gaz naturel 8415
Nucléaire 201
Pétrole 12987
Toutes énergies 2268
pétrole 32
Électricité 5212

TYPFLUX

Code 
bilan_energetique |>
  group_by(TYPFLUX) |>
  summarise(Nobs = n()) |>
  print_table_conditional()
TYPFLUX Nobs
Agriculture 1604
Branche énergie 8744
Consommation finale 1604
Consommation finale énergétique 1542
Consommation primaire 3088
Consommation totale 855
Cours-Prix 1473
Divers 161
Dépenses des ménages 507
Exportations 2319
Facture énergétique 348
Importations 4763
Industrie 1846
Marges, Taxes, Subventions 524
Production primaire 3263
Résidentiel 1713
Résidentiel-Tertiaire 816
Résidentiel-tertiaire 310
Soutes 603
Stocks 1370
Tertiaire 1791
Transport 2410
Usages non énergétiques 1167

UNITE

Code 
bilan_energetique |>
  group_by(UNITE) |>
  summarise(Nobs = n()) |>
  print_table_conditional()
UNITE Nobs
$ / Mbtu 17
$ / baril 34
$ / tonne 25
% 255
- 102
Mtep 4098
M€ 2023 348
M€ courants 2616
TWh 25004
TWh (PCS) 3975
kilotonne 4703
€ 40
€ / MWh 586
€ / MWh PCS 26
€ / baril 34
€ / tep 213
€ / tonne 160
€ courants 315
€/MWh 40
€/l 198
€/t 32

NIVGEO

Code 
bilan_energetique |>
  group_by(NIVGEO) |>
  summarise(Nobs = n()) |>
  print_table_conditional()
NIVGEO Nobs
- 246
Continent 78
DOM 4615
France 16118
Métropole 21738
ZNI 26

TYPDONNEE

Code 
bilan_energetique |>
  group_by(TYPDONNEE) |>
  summarise(Nobs = n()) |>
  print_table_conditional()
TYPDONNEE Nobs
CVC 6314
Réelles 36507

date

Code 
bilan_energetique |>
  group_by(date) |>
  summarise(Nobs = n()) |>
  arrange(desc(date)) |>
  print_table_conditional()

Consommation finale

Electricité

Code 
bilan_energetique |>
  filter(CODTOT %in% c("EL043TMR", "EL042TMR", "EL041TMR")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = LIBSERIE)) +
  #
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 300, 10))

Toutes énergies confondues

Code 
bilan_energetique |>
  filter(CODTOT %in% c("SY066TMR", "SY065TMR", "SY064TMR", "SY063TMR")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = LIBSERIE)) +
  #
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 2000, 50))

Gaz naturel

Code 
bilan_energetique |>
  filter(CODTOT %in% c("GA022TMR", "GA021TMR", "GA026TFR", "GA025TFR")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = LIBSERIE)) +
  #
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 2000, 20))

Charbon

Code 
bilan_energetique |>
  filter(CODTOT %in% c("CA041TMR", "CA042TMR", "CA043TMR", "CA044TMR")) |>
  ggplot() + geom_line(aes(x = date, y = value, color = LIBSERIE)) +
  #
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 2000, 1))

Nombre de degrés jours unifiés

Code 
bilan_energetique |>
  filter(CODTOT %in% c("114")) |>
  ggplot() + geom_line(aes(x = date, y = value)) +
  
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 3000, 100))