Bilan énergétique

Data - SDES

Author

François Geerolf

Info

source dataset .html .RData
sdes bilan_energetique 2024-10-07 2025-06-26

Données sur l’énergie

source dataset .html .RData
cre TRV_electricite 2024-10-27 2025-06-22
cre TRV_gaz 2024-10-07 2021-09-05
insee econ-gen-solde-ech-ext-2 2025-05-24 2025-05-24
insee IPPMP-NF 2025-05-24 2025-05-24
insee t_5404 2025-05-24 2021-08-01
sdes bilan_energetique 2024-10-07 2025-06-26

LAST_DOWNLOAD

source dataset Title Download Compile
cre TRV_electricite TRV électricité 2025-06-22 [2024-10-27]
cre TRV_gaz TRV gaz 2021-09-05 [2024-10-07]
insee IPPMP-NF Indices de prix et cours des matières premières 2025-05-24 [2025-05-24]
insee econ-gen-solde-ech-ext-2 Solde des échanges extérieurs et principales composantes 2025-05-24 [2025-05-24]
insee t_5404 5.404 – Importations de biens et de services par produit à prix courants (En milliards d'euros) 2021-08-01 [2025-05-24]
sdes bilan_energetique Bilan énergétique 2025-06-26 [2024-10-07]

LAST_COMPILE

LAST_COMPILE
2025-06-26

Last

Code 
bilan_energetique %>%
  group_by(date) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(date)) %>%
  head(1) %>%
  print_table_conditional()
date Nobs
2023-01-01 2040

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