Capital formation by activity, ISIC rev3 - SNA_TABLE8

Data - OECD

Author

François Geerolf

Layout

  • OECD Website. html

Data Structure

Code 
SNA_TABLE8_var %>%
  pluck("VAR_DESC") %>%
  print_table_conditional
id description
LOCATION Country
TRANSACT Transaction
ACTIVITY Activity
MEASURE Measure
TIME Year
OBS_VALUE Observation Value
TIME_FORMAT Time Format
OBS_STATUS Observation Status
UNIT Unit
POWERCODE Unit multiplier
REFERENCEPERIOD Reference period

TRANSACT

Code 
SNA_TABLE8 %>%
  left_join(SNA_TABLE8_var$TRANSACT, by = "TRANSACT") %>%
  group_by(TRANSACT, Transact) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
TRANSACT Transact Nobs
B1_GE Gross domestic product (expenditure approach) 2711
P51AY Gross fixed capital formation 2126
P51N111XAY Dwellings; other buildings and structures 1314
P51N1111AY Dwellings 142
P51N1112AY Other buildings and structures 142
P51N11131AY Transport equipment 142
P51N1114AY Cultivated assets 142
P51N112AY Intangible fixed assets 142
P52_P53AY Changes in inventories and acquisition less disposals of valuables 110
P5AY Gross capital formation 110
P51N1122AY Of which: Computer software 106
P53AY Acquisition less disposals of valuables 104
P51N11132AY Other machinery and equipment 86
P51N111321AY Of which: office machinery and hardware 50
P51N111322AY Of which: radio, TV and communication 50

ACTIVITY

Code 
SNA_TABLE8 %>%
  left_join(SNA_TABLE8_var$ACTIVITY, by = "ACTIVITY") %>%
  group_by(ACTIVITY, Activity) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional

MEASURE

Code 
SNA_TABLE8 %>%
  left_join(SNA_TABLE8_var$MEASURE, by = "MEASURE") %>%
  group_by(MEASURE, Measure) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
MEASURE Measure Nobs
C Current prices 4854
V Constant prices, national base year 1599
VP Constant prices, previous year prices 996
VOB Constant prices, OECD base year 28

LOCATION

Code 
SNA_TABLE8 %>%
  left_join(SNA_TABLE8_var$LOCATION, by = "LOCATION") %>%
  group_by(LOCATION, Location) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Location))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

obsTime

Code 
SNA_TABLE8 %>%
  group_by(obsTime) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(obsTime)) %>%
  print_table_conditional