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

Data - Eurostat

Author

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-10-11

LAST_COMPILE

LAST_COMPILE
2025-10-11

Last

Code

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

time	Nobs
2025Q1	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)	6623

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

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

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