Cross-classification of gross fixed capital formation by industry and by asset (stocks) - nama_10_nfa_st

Data - Eurostat

Author

asset10

Code

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

nace_r2

Code

nama_10_nfa_st %>%
  left_join(nace_r2, by = "nace_r2") %>%
  group_by(nace_r2, Nace_r2) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

unit

Code

nama_10_nfa_st %>%
  left_join(unit, by = "unit") %>%
  group_by(unit, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

unit	Unit	Nobs
CRC_MEUR	Current replacement costs, million euro	1305049
CRC_MNAC	Current replacement costs, million units of national currency	1305049
PYR_MEUR	Previous year replacement costs, million euro	1259820
PYR_MNAC	Previous year replacement costs, million units of national currency	1259820
CLV15_MEUR	Chain linked volumes (2015), million euro	1067932
CLV15_MNAC	Chain linked volumes (2015), million units of national currency	1067932
CLV20_MEUR	NA	1004611
CLV20_MNAC	NA	1004611

geo

Code

nama_10_nfa_st %>%
  left_join(geo, by = "geo") %>%
  group_by(geo, Geo) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Tables

France

Code

nama_10_nfa_st %>%
  filter(geo %in% c("FR"),
         time == "2019", 
         unit == "CRC_MEUR") %>%
  left_join(nace_r2, by = "nace_r2") %>%
  select(nace_r2, asset10, Nace_r2, values) %>%
  spread(asset10, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Germany

Code

nama_10_nfa_st %>%
  filter(geo %in% c("DE"),
         time == "2018", 
         unit == "CRC_MEUR") %>%
  left_join(nace_r2, by = "nace_r2") %>%
  select(nace_r2, asset10, Nace_r2, values) %>%
  spread(asset10, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}