World Energy Balances Highlights (2022 edition)

Data - IEA

Author

Info

Datasets

Code

energy %>%
  mutate(Title = read_lines(paste0("~/Library/Mobile\ Documents/com~apple~CloudDocs/website/data/", source, "/",dataset, ".qmd"), skip = 1, n_max = 1) %>% gsub("title: ", "", .) %>% gsub("\"", "", .)) %>%
  mutate(Download = as.Date(file.info(paste0("~/Library/Mobile\ Documents/com~apple~CloudDocs/website/data/", source, "/", dataset, ".RData"))$mtime),
         Compile = as.Date(file.info(paste0("~/Library/Mobile\ Documents/com~apple~CloudDocs/website/data/", source, "/", dataset, ".html"))$mtime)) %>%
  mutate(Compile = paste0("[", Compile, "](https://fgeerolf.com/data/", source, "/", dataset, '.html)')) %>%
  print_table_conditional()

source	dataset	Title	Download	Compile
ec	WOB	Weekly Oil Bulletin	2024-01-03	[2024-06-19]
eurostat	ei_isen_m	Energy - monthly data	2024-06-08	[2024-06-20]
eurostat	nrg_bal_c	Complete energy balances	2024-06-08	[2023-12-31]
eurostat	nrg_pc_202	Gas prices for household consumers - bi-annual data (from 2007 onwards)	2024-06-08	[2024-06-20]
eurostat	nrg_pc_203	Gas prices for non-household consumers - bi-annual data (from 2007 onwards)	2024-06-07	[2023-06-11]
eurostat	nrg_pc_203_c	Gas prices components for non-household consumers - annual data	2024-06-08	[2024-06-20]
eurostat	nrg_pc_203_h	Gas prices for industrial consumers - bi-annual data (until 2007)	2024-06-18	[2024-06-20]
eurostat	nrg_pc_203_v	Non-household consumption volumes of gas by consumption bands	2024-06-08	[2024-06-20]
eurostat	nrg_pc_204	Electricity prices for household consumers - bi-annual data (from 2007 onwards)	2024-06-18	[2024-06-20]
eurostat	nrg_pc_205	Electricity prices for non-household consumers - bi-annual data (from 2007 onwards)	2024-06-08	[2023-06-11]
fred	energy	Energy	2024-06-07	[2024-06-20]
iea	world_energy_balances_highlights_2022	World Energy Balances Highlights (2022 edition)	2023-04-24	[2024-06-20]
wb	CMO	World Bank Commodity Price Data (The Pink Sheet)	2024-05-23	[2024-06-20]
wdi	EG.GDP.PUSE.KO.PP.KD	GDP per unit of energy use (constant 2017 PPP $ per kg of oil equivalent)	2024-04-14	[2024-06-20]
wdi	EG.USE.PCAP.KG.OE	Energy use (kg of oil equivalent per capita)	2024-04-14	[2024-06-20]
yahoo	energy	Energy	2024-05-27	[2024-06-20]

Country

Code

world_energy_balances_highlights_2022 %>%
  group_by(Country, NoCountry) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

Product

Code

world_energy_balances_highlights_2022 %>%
  group_by(Product, NoProduct) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

Product	NoProduct	Nobs
Coal, peat and oil shale	01. Coal, peat and oil shale	36108
Crude, NGL and feedstocks	02. Crude, NGL and feedstocks	36108
Electricity	07. Electricity	36108
Fossil fuels	09. Fossil fuels	3009
Heat	08. Heat	36108
Natural gas	04. Natural gas	36108
Nuclear	05. Nuclear	39117
Oil products	03. Oil products	36108
Renewable sources	10. Renewable sources	3009
Renewables and waste	06. Renewables and waste	36108
Total	11. Total	39117

Flow

Code

world_energy_balances_highlights_2022 %>%
  group_by(Flow, NoFlow) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

Flow	NoFlow	Nobs
Commercial and public services (PJ)	11. Commercial and public services (PJ)	27081
Electricity output (GWh)	13. Electricity output (GWh)	12036
Electricity, CHP and heat plants (PJ)	05. Electricity, CHP and heat plants (PJ)	27081
Exports (PJ)	03. Exports (PJ)	27081
Imports (PJ)	02. Imports (PJ)	27081
Industry (PJ)	08. Industry (PJ)	27081
Oil refineries, transformation (PJ)	06. Oil refineries, transformation (PJ)	27081
Other final consumption (PJ)	12. Other final consumption (PJ)	27081
Production (PJ)	01. Production (PJ)	27081
Residential (PJ)	10. Residential (PJ)	27081
Total energy supply (PJ)	04. Total energy supply (PJ)	27081
Total final consumption (PJ)	07. Total final consumption (PJ)	27081
Transport (PJ)	09. Transport (PJ)	27081

year

Code

world_energy_balances_highlights_2022 %>%
  group_by(date) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(date)) %>%
  print_table_conditional()

2020, 2021, 2019

World

Code

world_energy_balances_highlights_2022 %>%
  mutate(date = year(date)) %>%
  filter(Country == "World",
         date %in% c(2019, 2020, 2021)) %>%
  select(Product, Flow, date, value) %>%
  spread(date, value) %>%
  arrange(desc(Product), desc(Flow)) %>%
  print_table_conditional()

Germany

Code

world_energy_balances_highlights_2022 %>%
  mutate(date = year(date)) %>%
  filter(Country == "Germany",
         date %in% c(2019, 2020, 2021)) %>%
  select(Product, Flow, date, value) %>%
  spread(date, value) %>%
  arrange(desc(Product), desc(Flow)) %>%
  print_table_conditional()