Air emissions accounts for greenhouse gases by NACE Rev. 2 activity - quarterly data

Data - Eurostat

Author

François Geerolf

Info

LAST_DOWNLOAD

Code 
tibble(LAST_DOWNLOAD = as.Date(file.info("~/iCloud/website/data/eurostat/env_ac_aigg_q.RData")$mtime)) %>%
  print_table_conditional()
LAST_DOWNLOAD
2026-02-23

LAST_COMPILE

LAST_COMPILE
2026-02-24

Last

Code 
env_ac_aigg_q %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  head(1) %>%
  print_table_conditional()
time Nobs
2025Q3 259

airpol

Code 
env_ac_aigg_q %>%
  left_join(airpol, by = "airpol") %>%
  group_by(airpol, Airpol) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
airpol Airpol Nobs
GHG Greenhouse gases (CO2, N2O in CO2 equivalent, CH4 in CO2 equivalent, HFC in CO2 equivalent, PFC in CO2 equivalent, SF6 in CO2 equivalent, NF3 in CO2 equivalent) 15984

nace_r2

Code 
env_ac_aigg_q %>%
  left_join(nace_r2, by = "nace_r2") %>%
  group_by(nace_r2, Nace_r2) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
nace_r2 Nace_r2 Nobs
TOTAL_HH All NACE activities plus households 12096
A Agriculture, forestry and fishing 432
B Mining and quarrying 432
C Manufacturing 432
D Electricity, gas, steam and air conditioning supply 432
E Water supply; sewerage, waste management and remediation activities 432
F Construction 432
G-U_X_H Services (except transportation and storage) 432
H Transportation and storage 432
HH Total activities by households 432

unit

Code 
env_ac_aigg_q %>%
  left_join(unit, by = "unit") %>%
  group_by(unit, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
unit Unit Nobs
THS_T Thousand tonnes 4662
T_HAB Tonnes per capita 4662
PCH_SM Percentage change compared to same period in previous year 4366
PCH_PRE Percentage change on previous period 2294

geo

Code 
env_ac_aigg_q %>%
  left_join(geo, by = "geo") %>%
  group_by(geo, Geo) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  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 .}