Main national accounts tax aggregates - gov_10a_taxag

Data - Eurostat

Author

François Geerolf

Info

DOWNLOAD_TIME

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

Last

Code 
gov_10a_taxag %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  head(1) %>%
  print_table_conditional()
time Nobs
2024 84742

unit

Code 
gov_10a_taxag %>%
  left_join(unit, by = "unit") %>%
  group_by(unit, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
unit Unit Nobs
MIO_EUR Million euro 635428
PC_GDP Percentage of gross domestic product (GDP) 635428
MIO_NAC Million units of national currency 635395
PC_TOT Percentage of total 627724

sector

Code 
gov_10a_taxag %>%
  left_join(sector, by = "sector") %>%
  group_by(sector, Sector) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
sector Sector Nobs
S212 Institutions of the EU 369738
S1312 State government 366120
S1313 Local government 362416
S1314 Social security funds 361636
S1311 Central government 361170
S13_S212 General government; institutions of the EU 356506
S13 General government 356389

na_item

All

Code 
gov_10a_taxag %>%
  left_join(na_item, by = "na_item") %>%
  group_by(na_item, Na_item) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

geo

Code 
gov_10a_taxag %>%
  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 .}

time

Code 
gov_10a_taxag %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  print_table_conditional()
time Nobs
2024 84742
2023 84762
2022 84850
2021 84850
2020 84850
2019 84850
2018 84850
2017 84850
2016 84850
2015 84826
2014 84802
2013 84802
2012 84778
2011 84778
2010 84766
2009 84534
2008 84534
2007 84550
2006 84582
2005 84598
2004 84598
2003 84332
2002 84332
2001 84236
2000 84172
1999 84148
1998 84268
1997 82990
1996 82966
1995 82929

France, Germany, Italy

Table, 2020

Code 
gov_10a_taxag %>%
  filter(sector == "S13",
         time == "2020",
         unit == "PC_GDP",
         geo %in% c("FR", "DE", "IT")) %>%
  select_if(~ n_distinct(.) > 1) %>%
  left_join(na_item, by = "na_item") %>%
  left_join(geo, by = "geo") %>%
  select(-geo) %>%
  spread(Geo, values) %>%
  print_table_conditional()