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()