Final consumption expenditure of households, SNA93 - SNA_TABLE5_SNA93

Data - OECD

Author

François Geerolf


Nobs - Javascript

Data Structure

id description
LOCATION Country
TRANSACT Transaction
MEASURE Measure
TIME Year
OBS_VALUE Observation Value
TIME_FORMAT Time Format
OBS_STATUS Observation Status
UNIT Unit
POWERCODE Unit multiplier
REFERENCEPERIOD Reference period

SUBJECT

MEASURE

id label
C Current prices
V Constant prices, national base year
VP Constant prices, previous year prices
VOB Constant prices, OECD base year
VPVOB Constant prices, constant PPPs, OECD base year

TIME_FORMAT

id label
P1Y Annual
P1M Monthly
P3M Quarterly
P6M Half-yearly
P1D Daily

Ex 1: Shares of Expenditure by Country, 2007

Code 
SNA_TABLE5_SNA93 %>%
  filter(LOCATION %in% c("FRA", "DEU", "USA", "GBR"),
         obsTime == "2007",
         MEASURE == "C") %>%
  arrange(LOCATION, TRANSACT) %>%
  select(LOCATION, TRANSACT, obsValue) %>%
  left_join(SNA_TABLE5_SNA93_var %>% pluck("TRANSACT"), by = c("TRANSACT" = "id")) %>%
  rename(TRANSACT_desc = label) %>%
  spread(LOCATION, obsValue) %>%
  mutate_at(vars(-1, -2), funs(paste0(round(100*./.[1], 1), " %"))) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}