Gas prices for industrial consumers - bi-annual data (until 2007) - nrg_pc_203_h

Data - Eurostat

Author

François Geerolf

Last observation: H2 2007 (N = 1215)

First observation: H1 1985 (N = 261)

Last data update: 15 juil. 2026, 03:41

Last compile: 05 sept. 2026, 00:40

Structure

Band I1 : Consumption < 1 000 GJ

France, Germany, Italy, Spain

All

Code 
nrg_pc_203_h |>
  filter(geo %in% c("FR", "DE", "IT", "ES"),
         tax %in% c("I_TAX", "X_TAX"),
         consom == "4142050",
         currency == "EUR") |>
  
  
  semester_to_date() |>
  add_flag_color("Geo") |>
  ggplot() + geom_line(aes(x = date, y = values, color = color, linetype = Tax)) +
  scale_color_identity() + theme_minimal()  + add_flags +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank()) +
  xlab("") + ylab("Consumption < 1 000 GJ") +
  scale_y_log10(breaks = seq(0.02, 0.2, 0.01),
                labels = dollar_format(a = .01, pre = "", su = "€"))

Example

France

Log

Code 
nrg_pc_203_h |>
  filter(geo == "FR",
         
         currency == "EUR") %>%
  
  
  select_if(~ n_distinct(.) > 1) |>
  semester_to_date() |>
  ggplot() + geom_line(aes(x = date, y = values, color = Consom, linetype = Tax)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 1, 0.01)) +
  theme(legend.position = c(0.45, 0.7),
        legend.title = element_blank())

Linear

Code 
nrg_pc_203_h |>
  filter(geo == "FR",
         
         currency == "EUR") %>%
  
  
  select_if(~ n_distinct(.) > 1) |>
  semester_to_date() |>
  ggplot() + geom_line(aes(x = date, y = values, color = Consom, linetype = Tax)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 1, 0.01)) +
  theme(legend.position = c(0.45, 0.7),
        legend.title = element_blank())

Germany

Log

Code 
nrg_pc_203_h |>
  filter(geo == "DE",
         
         currency == "EUR") %>%
  
  
  select_if(~ n_distinct(.) > 1) |>
  semester_to_date() |>
  ggplot() + geom_line(aes(x = date, y = values, color = Consom, linetype = Tax)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 1, 0.01)) +
  theme(legend.position = c(0.45, 0.7),
        legend.title = element_blank())

Linear

Code 
nrg_pc_203_h |>
  filter(geo == "DE",
         
         currency == "EUR") %>%
  
  
  select_if(~ n_distinct(.) > 1) |>
  semester_to_date() |>
  ggplot() + geom_line(aes(x = date, y = values, color = Consom, linetype = Tax)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 1, 0.01)) +
  theme(legend.position = c(0.45, 0.7),
        legend.title = element_blank())

Italy

Log

Code 
nrg_pc_203_h |>
  filter(geo == "IT",
         
         currency == "EUR") %>%
  
  
  select_if(~ n_distinct(.) > 1) |>
  semester_to_date() |>
  ggplot() + geom_line(aes(x = date, y = values, color = Consom, linetype = Tax)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 1, 0.01)) +
  theme(legend.position = c(0.45, 0.7),
        legend.title = element_blank())

Linear

Code 
nrg_pc_203_h |>
  filter(geo == "IT",
         
         currency == "EUR") %>%
  
  
  select_if(~ n_distinct(.) > 1) |>
  semester_to_date() |>
  ggplot() + geom_line(aes(x = date, y = values, color = Consom, linetype = Tax)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 1, 0.01)) +
  theme(legend.position = c(0.45, 0.7),
        legend.title = element_blank())

Spain

Code 
nrg_pc_203_h |>
  filter(geo == "ES",
         
         currency == "EUR") %>%
  
  
  select_if(~ n_distinct(.) > 1) |>
  semester_to_date() |>
  ggplot() + geom_line(aes(x = date, y = values, color = Consom, linetype = Tax)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 1, 0.01)) +
  theme(legend.position = c(0.45, 0.7),
        legend.title = element_blank())