Bilan énergétique - bilan_energetique

Données - SDES

Auteur

François Geerolf

Last observation: 2025 (N = 1784)

First observation: 1960 (N = 191)

Last data update: 10 oct. 2026, 00:32

Last compile: 10 oct. 2026, 00:33

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
- 140
Chaleur vendue 1623
Charbon 5500
EnR et déchets 7983
Gaz naturel 8853
Nucléaire 213
Pétrole 14332
Toutes énergies 2418
pétrole 33
Électricité 5682

TYPFLUX

Code 
bilan_energetique |>
  group_by(TYPFLUX) |>
  summarise(Nobs = n()) |>
  print_table_conditional()
TYPFLUX Nobs
Agriculture 1759
Branche énergie 9559
Consommation finale 1724
Consommation finale énergétique 1651
Consommation primaire 3368
Consommation totale 940
Cours-Prix 1608
Divers 207
Dépenses des ménages 519
Exportations 2524
Facture énergétique 364
Importations 5301
Industrie 2005
Marges, Taxes, Subventions 593
Production primaire 3501
Résidentiel 1885
Résidentiel-Tertiaire 890
Résidentiel-tertiaire 326
Soutes 669
Stocks 1480
Tertiaire 1976
Transport 2675
Usages non énergétiques 1253

UNITE

Code 
bilan_energetique |>
  group_by(UNITE) |>
  summarise(Nobs = n()) |>
  print_table_conditional()
UNITE Nobs
$ / Mbtu 14
$ / baril 36
$ / tonne 27
% 267
- 140
Mtep 4535
M€ 2025 364
M€ courants 2859
TWh 27313
TWh (PCS) 4173
kilotonne 5264
€ 42
€ / MWh 666
€ / MWh PCS 28
€ / baril 36
€ / tep 231
€ / tonne 175
€ courants 324
€/MWh 42
€/l 208
€/t 33

NIVGEO

Code 
bilan_energetique |>
  group_by(NIVGEO) |>
  summarise(Nobs = n()) |>
  print_table_conditional()
NIVGEO Nobs
- 258
Continent 85
DOM 5303
France 18026
Métropole 23077
ZNI 28

TYPDONNEE

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

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))