Environmental tax revenues - env_ac_tax

Data - Eurostat

Info

Last observation: Annual: 2024 (N = 620)

First observation: Annual: 1995 (N = 600)

Last data update: 11 aoû 2026, 18:10. Last compile: 11 aoû 2026, 23:48

Structure

freq

tax

unit

geo

2019

env_ac_tax |>
  filter(time == "2019",
         unit == "PC_GDP") |>
  
  
  select(Geo, values, Tax) |>
  spread(Tax, values) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(Geo)),
         Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Greece, France, Germany

env_ac_tax |>
  filter(geo %in% c("EL", "SE", "HR"),
         unit == "PC_GDP",
         tax == "NRG") |>
  year_to_date() |>
  
  mutate(values = values / 100) |>
  ggplot() + geom_line(aes(x = date, y = values, color = Geo)) +
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  add_flags +
  scale_color_manual(values = c("#FF0000", "#0D5EAF", "#FECC00")) +
  theme(legend.position = "none") +
  xlab("") + ylab("Energy taxes (% of GDP)") +
  scale_y_continuous(breaks = 0.01*seq(-30, 30, .2),
                labels = percent_format(a = .1))

France, Germany, Spain, Italy

Total Environmental Taxes (% of GDP)

env_ac_tax |>
  filter(geo %in% c("FR", "DE", "ES", "IT"),
         unit == "PC_GDP",
         tax == "ENV") |>
  year_to_date() |>
  left_join(colors, by = c("Geo" = "country")) |>
  mutate(values = values/100) |>
  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(1990, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Total environmental taxes (% of GDP)") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 0.1))

France: Environmental Taxes by Category

Energy, Transport, Pollution/Resources (% of GDP)

env_ac_tax |>
  filter(geo == "FR",
         unit == "PC_GDP",
         tax %in% c("NRG", "TRA", "POL_RES")) |>
  year_to_date() |>
  mutate(values = values/100) |>
  ggplot() + geom_line(aes(x = date, y = values, color = Tax)) +
  theme_minimal() +
  theme(legend.position = c(0.3, 0.85),
        legend.title = element_blank()) +
  scale_x_date(breaks = as.Date(paste0(seq(1990, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Environmental taxes (% of GDP)") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 0.1))