Info

source	dataset	.html	.RData
sdes	bilan_energetique	2024-10-07	2024-10-07

Données sur l’énergie

source	dataset	.html	.RData
cre	TRV_electricite	2024-10-07	2024-10-07
cre	TRV_gaz	2024-10-07	2021-09-05
insee	econ-gen-solde-ech-ext-2	2024-10-04	2023-11-01
insee	IPPMP-NF	2024-10-07	2024-10-07
insee	t_5404	2024-10-04	2021-08-01
sdes	bilan_energetique	2024-10-07	2024-10-07

LAST_DOWNLOAD

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

LAST_COMPILE

LAST_COMPILE
2024-10-07

Last

Code

bilan_energetique %>%
  group_by(date) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(date)) %>%
  head(1) %>%
  print_table_conditional()

date	Nobs
2022-01-01	2102

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
-	119
Chaleur vendue	1343
Charbon	4770
ENR	24
EnR et déchets	7002
Gaz naturel	8225
Nucléaire	195
Pétrole	12353
Toutes énergies	2813
pétrole	31
Électricité	4969

TYPFLUX

Code

bilan_energetique %>%
  group_by(TYPFLUX) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

TYPFLUX	Nobs
Agriculture	1521
Branche énergie	8329
Consommation finale	1546
Consommation finale énergétique	1490
Consommation primaire	2960
Consommation totale	814
Cours-Prix	1392
Divers	175
Dépenses des ménages	540
Exportations	2238
Facture énergétique	340
Importations	4536
Industrie	1766
Marges, Taxes, Subventions	490
Production primaire	3199
Résidentiel	1646
Résidentiel-Tertiaire	779
Résidentiel-tertiaire	302
Soutes	534
Stocks	1311
Tertiaire	1718
Transport	2289
Usages non énergétiques	1119
Émissions de CO2	810

UNITE

Code

bilan_energetique %>%
  group_by(UNITE) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

UNITE	Nobs
$ / Mbtu	16
$ / baril	33
$ / tonne	24
%	248
-	119
Mt CO2	810
Mtep	3886
M€ 2022	340
M€ courants	2437
TWh	24005
TWh (PCS)	3876
kilotonne	4446
€	40
€ / MWh	544
€ / MWh PCS	24
€ / baril	33
€ / tep	199
€ / tonne	151
€ courants	351
€/MWh	40
€/l	191
€/t	31

NIVGEO

Code

bilan_energetique %>%
  group_by(NIVGEO) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

NIVGEO	Nobs
-	236
Continent	12
DOM	4344
France	15403
France continentale	60
Métropole	21765
Zones non interconnectées	24

TYPDONNEE

Code

bilan_energetique %>%
  group_by(TYPDONNEE) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

TYPDONNEE	Nobs
CVC	6533
Réelles	35311

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