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
2025-05-18

LAST_COMPILE

LAST_COMPILE
2025-05-18

Last

Code 
env_ac_aigg_q %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  head(1) %>%
  print_table_conditional()
time Nobs
2024Q4 111

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) 6512

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 4928
A Agriculture, forestry and fishing 176
B Mining and quarrying 176
C Manufacturing 176
D Electricity, gas, steam and air conditioning supply 176
E Water supply; sewerage, waste management and remediation activities 176
F Construction 176
G-U_X_H Services (except transportation and storage) 176
H Transportation and storage 176
HH Total activities by households 176

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 2220
T_HAB Tonnes per capita 2220
PCH_SM Percentage change compared to same period in previous year 2072

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 .}