Bilan énergétique

Data - SDES

Author

François Geerolf

Info

LAST_DOWNLOAD

source dataset Title Download Compile
insee IPPMP-NF Indices de prix et cours des matières premières 2024-06-19 [2024-06-19]
insee econ-gen-solde-ech-ext-2 Solde des échanges extérieurs et principales composantes 2023-11-01 [2024-06-19]
insee t_5404 5.404 – Importations de biens et de services par produit à prix courants (En milliards d'euros) 2021-08-01 [2024-06-19]
sdes bilan_energetique Bilan énergétique 2022-04-16 [2024-06-19]

LAST_COMPILE

LAST_COMPILE
2024-06-20

Last

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

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
- 113
Chaleur vendue 1145
Charbon 5320
EnR et déchets 5676
Gaz naturel 7641
Nucléaire 223
Pétrole 10849
Toutes énergies 2594
pétrole 29
Électricité 4163

TYPFLUX

Code 
bilan_energetique %>%
  group_by(TYPFLUX) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()
TYPFLUX Nobs
Agriculture 1350
Branche énergie 8363
Consommation finale 1440
Consommation finale énergétique 1374
Consommation primaire 2608
Consommation totale 720
Cours-Prix 1206
Divers 163
Dépenses des ménages 516
Exportations 1934
Facture énergétique 324
Importations 3870
Industrie 1589
Marges, Taxes, Subventions 400
Production primaire 2791
Résidentiel 1430
Résidentiel-Tertiaire 697
Résidentiel-tertiaire 286
Soutes 474
Stocks 1193
Tertiaire 1485
Transport 1800
Usages non énergétiques 1002
Émissions de CO2 738

UNITE

Code 
bilan_energetique %>%
  group_by(UNITE) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()
UNITE Nobs
$ / Mbtu 14
$ / baril 31
$ / tonne 22
% 234
- 113
Mt CO2 738
Mtep 3452
M€ 2020 324
M€ courants 2011
TJ (PCS) 60
TWh 21632
TWh (PCS) 3638
kilotonne 4074
€ 38
€ / MWh 440
€ / MWh PCS 20
€ / baril 31
€ / tep 171
€ / tonne 133
€ courants 333
€/MWh 38
€/l 177
€/t 29

NIVGEO

Code 
bilan_energetique %>%
  group_by(NIVGEO) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()
NIVGEO Nobs
- 196
Continent 10
DOM 3430
France 13235
Métropole 20862
Zones non interconnectées 20

TYPDONNEE

Code 
bilan_energetique %>%
  group_by(TYPDONNEE) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()
TYPDONNEE Nobs
CVC 5880
Réelles 31873

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)) +
  #scale_color_manual(values = viridis(4)[1:3]) +
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2025, 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)) +
  #scale_color_manual(values = viridis(4)[1:3]) +
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2025, 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)) +
  #scale_color_manual(values = viridis(4)[1:3]) +
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2025, 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)) +
  #scale_color_manual(values = viridis(4)[1:3]) +
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2025, 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)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = seq(1920, 2025, 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))