Weekly Oil Bulletin

Data - ec

Author

François Geerolf

Info

source dataset .html .RData
ec WOB 2024-09-15 2024-08-25

Data on energy

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

LAST_COMPILE

LAST_COMPILE
2024-11-24

Last

Code 
WOB %>%
  group_by(date) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(date)) %>%
  head(2) %>%
  print_table_conditional()
date Nobs
2024-07-08 14
2024-07-01 246

Product Name

Code 
WOB %>%
  group_by(`Product Name`, `Prices Unit`) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
Product Name Prices Unit Nobs
Automotive gas oil 1000L 16242
Euro-super 95 1000L 16242
Heating gas oil 1000L 15592
LPG - motor fuel 1000L 11266
Fuel oil - Sulphur less than 1% t 10808
Fuel oil - Sulphur higher than 1% t 1780
Lead substitute petrol 1000L 590
NA NA 510
Product Name Prices Unit 468
Standard Grade Burning Oil UK 1000L 234

tax

Code 
WOB %>%
  group_by(tax) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
tax Nobs
Weekly price with taxes 36866
Weekly price without taxes 36866

Geo

Code 
WOB %>%
  group_by(geo, Geo) %>%
  summarise(Nobs = n()) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Geo))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

France, Germany, Spain, Italy

April 2020-

Index

Code 
WOB %>%
  filter(`Product Name` == "Euro-super 95",
         Geo %in% c("France", "Germany", "Spain", "Italy")) %>%
  mutate(values = values/1000) %>%
  filter(date >= as.Date("2020-04-01")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  group_by(Geo, tax) %>%
  mutate(values = 100*values/values[date == as.Date("2022-02-21")]) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Euro-super 95 (100 = February 21, 2022)") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2019-11-01"), Sys.Date(), "3 month"),
               labels = scales::date_format("%b %y")) + add_6flags +
  scale_y_log10(breaks = seq(10, 300, 10)) +
  theme(legend.position = c(0.7, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

Value

Code 
WOB %>%
  filter(`Product Name` == "Euro-super 95",
         Geo %in% c("France", "Germany", "Spain", "Italy")) %>%
  mutate(values = values/1000) %>%
  filter(date >= as.Date("2020-04-01")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Euro-super 95") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2019-11-01"), Sys.Date(), "3 month"),
               labels = scales::date_format("%b %y")) + add_8flags +
  scale_y_continuous(breaks = seq(-100, 100, 0.1),
                     labels = scales::dollar_format(a = .1, pre = "", su = " €/L")) +
  theme(legend.position = c(0.3, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

Since War in Ukraine

Index

Code 
WOB %>%
  filter(`Product Name` == "Euro-super 95",
         Geo %in% c("France", "Germany", "Spain", "Italy")) %>%
  mutate(values = values/1000) %>%
  filter(date >= as.Date("2022-02-21")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  group_by(Geo, tax) %>%
  mutate(values = 100*values/values[date == as.Date("2022-02-21")]) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Euro-super 95 (100 = February 21, 2022)") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2019-11-01"), Sys.Date(), "1 month"),
               labels = scales::date_format("%b %y")) + add_6flags +
  scale_y_log10(breaks = seq(10, 300, 10)) +
  theme(legend.position = c(0.7, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

Value

Code 
WOB %>%
  filter(`Product Name` == "Euro-super 95",
         Geo %in% c("France", "Germany", "Spain", "Italy")) %>%
  mutate(values = values/1000) %>%
  filter(date >= as.Date("2022-02-21")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Euro-super 95") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2019-11-01"), Sys.Date(), "1 month"),
               labels = scales::date_format("%b %y")) + add_8flags +
  scale_y_continuous(breaks = seq(-100, 100, 0.1),
                     labels = scales::dollar_format(a = .1, pre = "", su = " €/L")) +
  theme(legend.position = c(0.7, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

France Italy, Germany, Spain

3 months

Code 
WOB %>%
  filter(`Product Name` == "Euro-super 95",
         Geo %in% c("France", "Germany", "Spain", "Italy"),
         tax == "Weekly price with taxes") %>%
  mutate(values = values/1000) %>%
  filter(date >= Sys.Date() - months(6)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("Automotive gas oil") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2018-09-10"), Sys.Date(), "1 week"),
               labels = scales::date_format("%d %b %y")) + add_4flags +
  scale_y_continuous(breaks = seq(-100, 100, 0.05),
                     labels = scales::dollar_format(a = .01, pre = "", su = " €/L")) +
  theme(legend.position = c(0.3, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

France, Germany, Spain

Automotive gas oil

Since February 21, 2022 (War in Ukraine)

Value

Code 
WOB %>%
  filter(`Product Name` == "Automotive gas oil",
         Geo %in% c("France", "Germany", "Spain")) %>%
  mutate(values = values/1000) %>%
  filter(date >= as.Date("2022-02-21")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Automotive gas oil") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2019-11-01"), Sys.Date(), "1 month"),
               labels = scales::date_format("%b %y")) + add_6flags +
  scale_y_continuous(breaks = seq(-100, 100, 0.1),
                     labels = scales::dollar_format(a = .1, pre = "", su = " €/L")) +
  theme(legend.position = c(0.7, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

Index

Code 
WOB %>%
  filter(`Product Name` == "Automotive gas oil",
         Geo %in% c("France", "Germany", "Spain")) %>%
  mutate(values = values/1000) %>%
  filter(date >= as.Date("2022-02-21")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  group_by(Geo, tax) %>%
  mutate(values = 100*values/values[date == as.Date("2022-02-21")]) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Automotive gas oil") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2019-11-01"), Sys.Date(), "1 month"),
               labels = scales::date_format("%b %y")) + add_6flags +
  scale_y_continuous(breaks = seq(100, 300, 10)) +
  theme(legend.position = c(0.7, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

2022-

Code 
WOB %>%
  filter(`Product Name` == "Automotive gas oil",
         Geo %in% c("France", "Germany", "Spain")) %>%
  mutate(values = values/1000) %>%
  filter(date >= as.Date("2022-01-01")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Automotive gas oil") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2019-11-01"), Sys.Date(), "1 month"),
               labels = scales::date_format("%b %y")) + add_6flags +
  scale_y_continuous(breaks = seq(-100, 100, 0.1),
                     labels = scales::dollar_format(a = .1, pre = "", su = " €/L")) +
  theme(legend.position = c(0.7, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

1 year

Code 
WOB %>%
  filter(`Product Name` == "Automotive gas oil",
         Geo %in% c("France", "Germany", "Spain")) %>%
  mutate(values = values/1000) %>%
  filter(date >= Sys.Date() - years(1)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Automotive gas oil") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2019-11-01"), Sys.Date(), "1 month"),
               labels = scales::date_format("%b %y")) + add_6flags +
  scale_y_continuous(breaks = seq(-100, 100, 0.1),
                     labels = scales::dollar_format(a = .1, pre = "", su = " €/L")) +
  theme(legend.position = c(0.7, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

3 months

Code 
WOB %>%
  filter(`Product Name` == "Automotive gas oil",
         Geo %in% c("France", "Germany", "Spain")) %>%
  mutate(values = values/1000) %>%
  filter(date >= Sys.Date() - months(3)) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Automotive gas oil") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2018-09-10"), Sys.Date(), "1 week"),
               labels = scales::date_format("%d %b %y")) + add_6flags +
  scale_y_continuous(breaks = seq(-100, 100, 0.1),
                     labels = scales::dollar_format(a = .1, pre = "", su = " €/L")) +
  theme(legend.position = c(0.3, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

All

Code 
WOB %>%
  filter(`Product Name` == "Automotive gas oil",
         Geo %in% c("France", "Germany", "Spain")) %>%
  mutate(values = values/1000) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Automotive gas oil") + scale_color_identity() + 
  scale_x_date(breaks = seq.Date(as.Date("2015-12-01"), Sys.Date(), "6 months"),
               labels = scales::date_format("%b %y")) + add_6flags +
  scale_y_continuous(breaks = seq(-100, 100, 0.1),
                     labels = scales::dollar_format(a = .1, pre = "", su = " €/L")) +
  theme(legend.position = c(0.3, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

Heating gas oil

2022-

Code 
WOB %>%
  filter(`Product Name` == "Heating gas oil",
         Geo %in% c("France", "Germany", "Spain")) %>%
  mutate(values = values/1000) %>%
  filter(date >= as.Date("2022-01-01")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Heating gas oil") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2019-11-01"), Sys.Date(), "1 month"),
               labels = scales::date_format("%b %y")) + add_6flags +
  scale_y_continuous(breaks = seq(-100, 100, 0.1),
                     labels = scales::dollar_format(a = .1, pre = "", su = " €/L")) +
  theme(legend.position = c(0.7, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

All

Code 
WOB %>%
  filter(`Product Name` == "Heating gas oil",
         Geo %in% c("France", "Germany", "Spain")) %>%
  mutate(values = values/1000) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Heating gas oil") + scale_color_identity() + 
  scale_x_date(breaks = seq.Date(as.Date("2015-12-01"), Sys.Date(), "6 months"),
               labels = scales::date_format("%b %y")) + add_6flags +
  scale_y_continuous(breaks = seq(-100, 100, 0.1),
                     labels = scales::dollar_format(a = .1, pre = "", su = " €/L")) +
  theme(legend.position = c(0.3, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

Euro-super 95

Since War in Ukraine

Value

Code 
WOB %>%
  filter(`Product Name` == "Euro-super 95",
         Geo %in% c("France", "Germany", "Spain")) %>%
  mutate(values = values/1000) %>%
  filter(date >= as.Date("2022-02-21")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Euro-super 95") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2019-11-01"), Sys.Date(), "1 month"),
               labels = scales::date_format("%b %y")) + add_6flags +
  scale_y_continuous(breaks = seq(-100, 100, 0.1),
                     labels = scales::dollar_format(a = .1, pre = "", su = " €/L")) +
  theme(legend.position = c(0.7, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

Index

Code 
WOB %>%
  filter(`Product Name` == "Euro-super 95",
         Geo %in% c("France", "Germany", "Spain")) %>%
  mutate(values = values/1000) %>%
  filter(date >= as.Date("2022-02-21")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  group_by(Geo, tax) %>%
  mutate(values = 100*values/values[date == as.Date("2022-02-21")]) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Euro-super 95") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2019-11-01"), Sys.Date(), "1 month"),
               labels = scales::date_format("%b %y")) + add_6flags +
  scale_y_continuous(breaks = seq(10, 300, 10)) +
  theme(legend.position = c(0.7, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

2022-

Code 
WOB %>%
  filter(`Product Name` == "Euro-super 95",
         Geo %in% c("France", "Germany", "Spain")) %>%
  mutate(values = values/1000) %>%
  filter(date >= as.Date("2022-01-01")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Euro-super 95") + scale_color_identity() +
  scale_x_date(breaks = seq.Date(as.Date("2019-11-01"), Sys.Date(), "1 month"),
               labels = scales::date_format("%b %y")) + add_6flags +
  scale_y_continuous(breaks = seq(-100, 100, 0.1),
                     labels = scales::dollar_format(a = .1, pre = "", su = " €/L")) +
  theme(legend.position = c(0.7, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())

All

Code 
WOB %>%
  filter(`Product Name` == "Euro-super 95",
         Geo %in% c("France", "Germany", "Spain")) %>%
  mutate(values = values/1000) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = tax)) + 
  theme_minimal() + xlab("") + ylab("Euro-super 95") + scale_color_identity() + 
  scale_x_date(breaks = seq.Date(as.Date("2015-12-01"), Sys.Date(), "6 months"),
               labels = scales::date_format("%b %y")) + add_6flags +
  scale_y_continuous(breaks = seq(-100, 100, 0.1),
                     labels = scales::dollar_format(a = .1, pre = "", su = " €/L")) +
  theme(legend.position = c(0.3, 0.95),
          axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1),
        legend.title = element_blank())