Weekly Oil Bulletin - WOB

Data - ec

Author

François Geerolf 

Warning: le package 'choroplethr' n'est pas disponible for this version of R

Une version de ce package pour votre version de R est peut-être disponible ailleurs,
Voyez des idées à
https://cran.r-project.org/doc/manuals/r-patched/R-admin.html#Installing-packages
Warning in library(package, lib.loc = lib.loc, character.only = TRUE,
logical.return = TRUE, : aucun package nommé 'choroplethr' n'est trouvé

Info

Last observation: 2026-07-27 (N = 240)

First observation: 2005-01-03 (N = 266)

Last data update: 01 août 2026, 23:26. Last compile: 28 août 2026, 14:54

Product Name

Code 
WOB |>
  group_by(`Product Name`, product) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()
Product Name product Nobs
Automotive gas oil diesel 64620
Euro-super 95 euro95 64620
Fuel oil - Sulphur higher than 1% fuel_oil_2 64620
Fuel oil - Sulphur less than 1% fuel_oil_1 64620
Heating gas oil heating_oil 64620
LPG - motor fuel LPG 64620

tax

Code 
WOB |>
  group_by(tax) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  print_table_conditional()
tax Nobs
Prices with taxes 193860
Prices wo taxes 193860

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_flags +
  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_flags +
  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_flags +
  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_flags +
  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, Portugal, Spain, European Union (average)

3 months

Code 
WOB |>
  filter(`Product Name` == "Euro-super 95",
         Geo %in% c("France", "Portugal", "Spain", "Italy", "European Union (average)"),
         tax == "Prices with taxes") |>
  mutate(Geo = ifelse(Geo == "European Union (average)", "Europe", Geo)) |>
  mutate(values = values/1000) |>
  filter(date >= Sys.Date() %m-% months(6)) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("Euro-super 95, Price with taxes") + 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_flags +
  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 Italy, Germany, Spain

3 months

Code 
WOB |>
  filter(`Product Name` == "Euro-super 95",
         Geo %in% c("France", "Germany", "Spain", "Italy"),
         tax == "Prices with taxes") |>
  mutate(values = values/1000) |>
  filter(date >= Sys.Date() %m-% 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_flags +
  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_flags +
  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_flags +
  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_flags +
  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() %m-% 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_flags +
  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() %m-% 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_flags +
  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("1995-12-01"), Sys.Date(), "6 months"),
               labels = scales::date_format("%b %Y")) + add_flags +
  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_flags +
  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("2000-12-01"), Sys.Date(), "6 months"),
               labels = scales::date_format("%b %Y")) + add_flags +
  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_flags +
  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_flags +
  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_flags +
  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("2000-12-01"), Sys.Date(), "6 months"),
               labels = scales::date_format("%b %Y")) + add_flags +
  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())