Balance sheets for non-financial assets - nama_10_nfa_bs

Data - Eurostat

Author

François Geerolf

unit

Code 
nama_10_nfa_bs %>%
  left_join(unit, by = "unit") %>%
  group_by(unit, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
unit Unit Nobs
CP_MNAC Current prices, million units of national currency 50329
CP_MEUR Current prices, million euro 50323

sector

Code 
nama_10_nfa_bs %>%
  left_join(sector, by = "sector") %>%
  mutate(icon = paste0('<img src="../../icon/sector/vsmall/', sector, '.png" alt="All">')) %>%
  group_by(icon, sector, Sector) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

asset10

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

geo

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

2018, By Sector

France

Code 
nama_10_nfa_bs %>%
  filter(geo %in% c("FR"),
         time == "2019", 
         unit == "CP_MEUR") %>%
  left_join(gdp, by = c("time", "geo")) %>%
  mutate(values = round(100*values / gdp, 1)) %>%
  left_join(asset10, by = "asset10") %>%
  select(sector, asset10, Asset10, values) %>%
  mutate(sector = paste0('<img src="../../icon/sector/vsmall/', sector, '.png" alt="All">')) %>%
  spread(sector, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Germany

Code 
nama_10_nfa_bs %>%
  filter(geo %in% c("DE"),
         time == "2018", 
         unit == "CP_MEUR") %>%
  left_join(asset10, by = "asset10") %>%
  left_join(gdp, by = c("time", "geo")) %>%
  mutate(values = round(100*values / gdp, 1)) %>%
  select(sector, asset10, Asset10, values) %>%
  mutate(sector = paste0('<img src="../../icon/sector/vsmall/', sector, '.png" alt="All">')) %>%
  spread(sector, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Italy

Code 
nama_10_nfa_bs %>%
  filter(geo %in% c("IT"),
         time == "2018", 
         unit == "CP_MEUR") %>%
  left_join(asset10, by = "asset10") %>%
  left_join(gdp, by = c("time", "geo")) %>%
  mutate(values = round(100*values / gdp, 1)) %>%
  select(sector, asset10, Asset10, values) %>%
  mutate(sector = paste0('<img src="../../icon/sector/vsmall/', sector, '.png" alt="All">')) %>%
  spread(sector, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

United Kingdom

Code 
nama_10_nfa_bs %>%
  filter(geo %in% c("UK"),
         time == "2018", 
         unit == "CP_MEUR") %>%
  left_join(asset10, by = "asset10") %>%
  left_join(gdp, by = c("time", "geo")) %>%
  mutate(values = round(100*values / gdp, 1)) %>%
  select(sector, asset10, Asset10, values) %>%
  mutate(sector = paste0('<img src="../../icon/sector/vsmall/', sector, '.png" alt="All">')) %>%
  spread(sector, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

2018, France, Germany, Italy, United Kingdom

All Sector

Code 
nama_10_nfa_bs %>%
  filter(geo %in% c("FR", "DE", "IT", "UK"),
         time == "2019", 
         sector == "S1",
         unit == "CP_MEUR") %>%
  left_join(gdp, by = c("time", "geo")) %>%
  mutate(values = round(100*values / gdp, 1)) %>%
  left_join(asset10, by = "asset10") %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
  mutate(Geo = gsub(" ", "-", str_to_lower(Geo)),
         Geo = paste0('<img src="../../icon/flag/vsmall/', Geo, '.png" alt="Flag">')) %>%
  select(Geo, asset10, Asset10, values) %>%
  spread(Geo, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Non-financial corporations

Code 
nama_10_nfa_bs %>%
  filter(geo %in% c("FR", "DE", "IT", "UK"),
         time == "2019", 
         sector == "S11",
         unit == "CP_MEUR") %>%
  left_join(gdp, by = c("time", "geo")) %>%
  mutate(values = round(100*values / gdp, 1)) %>%
  left_join(asset10, by = "asset10") %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
  mutate(Geo = gsub(" ", "-", str_to_lower(Geo)),
         Geo = paste0('<img src="../../icon/flag/vsmall/', Geo, '.png" alt="Flag">')) %>%
  select(Geo, asset10, Asset10, values) %>%
  spread(Geo, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Financial corporations

Code 
nama_10_nfa_bs %>%
  filter(geo %in% c("FR", "DE", "IT", "UK"),
         time == "2019", 
         sector == "S12",
         unit == "CP_MEUR") %>%
  left_join(gdp, by = c("time", "geo")) %>%
  mutate(values = round(100*values / gdp, 1)) %>%
  left_join(asset10, by = "asset10") %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
  mutate(Geo = gsub(" ", "-", str_to_lower(Geo)),
         Geo = paste0('<img src="../../icon/flag/vsmall/', Geo, '.png" alt="Flag">')) %>%
  select(Geo, asset10, Asset10, values) %>%
  spread(Geo, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

General government

Code 
nama_10_nfa_bs %>%
  filter(geo %in% c("FR", "DE", "IT", "UK"),
         time == "2019", 
         sector == "S13",
         unit == "CP_MEUR") %>%
  left_join(gdp, by = c("time", "geo")) %>%
  mutate(values = round(100*values / gdp, 1)) %>%
  left_join(asset10, by = "asset10") %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
  mutate(Geo = gsub(" ", "-", str_to_lower(Geo)),
         Geo = paste0('<img src="../../icon/flag/vsmall/', Geo, '.png" alt="Flag">')) %>%
  select(Geo, asset10, Asset10, values) %>%
  spread(Geo, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Households

Code 
nama_10_nfa_bs %>%
  filter(geo %in% c("FR", "DE", "IT", "UK"),
         time == "2019", 
         sector == "S14_S15",
         unit == "CP_MEUR") %>%
  left_join(gdp, by = c("time", "geo")) %>%
  mutate(values = round(100*values / gdp, 1)) %>%
  left_join(asset10, by = "asset10") %>%
  left_join(geo, by = "geo") %>%
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
  mutate(Geo = gsub(" ", "-", str_to_lower(Geo)),
         Geo = paste0('<img src="../../icon/flag/vsmall/', Geo, '.png" alt="Flag">')) %>%
  select(Geo, asset10, Asset10, values) %>%
  spread(Geo, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}