Last observation: 2026M07 (N = 781)
First observation: 2008M01 (N = 192)
Last data update: 01 sept. 2026, 01:07. Last compile: 02 sept. 2026, 00:36
Data - Eurostat
Last observation: 2026M07 (N = 781)
First observation: 2008M01 (N = 192)
Last data update: 01 sept. 2026, 01:07. Last compile: 02 sept. 2026, 00:36
nrg_cb_gasm |>
filter(geo %in% c("FR", "DE", "IT", "ES"),
unit == "TJ_GCV",
nrg_bal == "IC_CAL_MG") |>
month_to_date() |>
mutate(values = values/1000) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + scale_color_identity() + add_flags +
scale_x_date(breaks = as.Date(paste0(seq(2000, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Inland natural gas consumption (thousand TJ)")
nrg_cb_gasm |>
filter(geo == "DE",
unit == "TJ_GCV",
nrg_bal %in% c("IMP", "EXP", "IPRD")) |>
month_to_date() |>
mutate(values = values/1000) |>
ggplot() + geom_line(aes(x = date, y = values, color = Nrg_bal)) +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(2000, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.title = element_blank()) +
xlab("") + ylab("Natural gas (thousand TJ)")
https://ec.europa.eu/eurostat/en/web/products-eurostat-news/w/DDN-20230419-1
include_graphics("https://ec.europa.eu/eurostat/documents/4187653/16179929/Natural_Gas_Consumption_Reduction.png")
nrg_cb_gasm |>
month_to_date() |>
filter(unit == "TJ_GCV",
nrg_bal == "IC_CAL_MG") |>
mutate(period = case_when(date >= as.Date("2022-08-01") ~ "August 2022 - March 2023",
(date >= as.Date("2021-08-01") & date <= as.Date("2022-03-01")) |
(date >= as.Date("2020-08-01") & date <= as.Date("2021-03-01")) |
(date >= as.Date("2019-08-01") & date <= as.Date("2020-03-01")) |
(date >= as.Date("2018-08-01") & date <= as.Date("2019-03-01")) |
(date >= as.Date("2017-08-01") & date <= as.Date("2018-03-01")) ~ "2017-2022",
TRUE ~ NA)) |>
filter(!is.na(period)) |>
group_by(geo, period) |>
summarise(mean = mean(values)) |>
spread(period, mean) |>
mutate(change = `August 2022 - March 2023`/`2017-2022`-1) |>
arrange(change)# # A tibble: 40 × 4
# # Groups: geo [40]
# geo `2017-2022` `August 2022 - March 2023` change
# <chr> <dbl> <dbl> <dbl>
# 1 FI 8532. 4950. -0.420
# 2 LV 4664. 2714. -0.418
# 3 MD 4304. 2517. -0.415
# 4 EE 1757. 1078. -0.386
# 5 SE 4212. 2702. -0.358
# 6 FR 167551. 109219. -0.348
# 7 NL 132631. 87502. -0.340
# 8 LU 2913. 1981. -0.320
# 9 LT 7879. 5422. -0.312
# 10 PT 20224. 13992. -0.308
# # ℹ 30 more rows
nrg_cb_gasm |>
month_to_date() |>
filter(date >= as.Date("2017-01-01"),
date <= as.Date("2022-12-31"),
unit == "TJ_GCV",
nrg_bal == "IC_CAL_MG") |>
group_by(geo) |>
summarise(energy = mean(values))# # A tibble: 39 × 2
# geo energy
# <chr> <dbl>
# 1 AL 188.
# 2 AT 28594.
# 3 BE 56622.
# 4 BG 9823.
# 5 CY 0
# 6 CZ 27524.
# 7 DE 286278.
# 8 DK 9525.
# 9 EE 1445.
# 10 EL 17878.
# # ℹ 29 more rows
include_graphics("https://ec.europa.eu/eurostat/documents/4187653/16179929/Natural_Gas_Consumption_Calculated_2017-2023.png")