Internal tourism consumption - TOURISM_NATIONAL_ECON

Data - OECD

~/data/oecd/

load_data("oecd/TOURISM_NATIONAL_ECON_var.RData")
load_data("oecd/TOURISM_NATIONAL_ECON.RData")

Nobs - Javascript

TOURISM_NATIONAL_ECON %>%
  left_join(TOURISM_NATIONAL_ECON_var %>% pluck("VARIABLE"), by = c("VARIABLE" = "id")) %>%
  rename(`VARIABLE Description` = label) %>%
  group_by(VARIABLE, `VARIABLE Description`, CONSUMP) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Data Structure

TOURISM_NATIONAL_ECON_var %>%
  pluck("VAR_DESC") %>%
  {if (is_html_output()) print_table(.) else .}

id	description
COUNTRY	Country
VARIABLE	Variable
CONSUMP	Tourism consumption
YEAR	Year
OBS_VALUE	Observation Value
TIME_FORMAT	Time Format
OBS_STATUS	Observation Status
UNIT	Unit
POWERCODE	Unit multiplier
REFERENCEPERIOD	Reference period

SUBJECT

TOURISM_NATIONAL_ECON %>%
  left_join(TOURISM_NATIONAL_ECON_var %>% pluck("VARIABLE"), by = c("VARIABLE" = "id")) %>%
  rename(`VARIABLE Description` = label) %>%
  group_by(VARIABLE, `VARIABLE Description`) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

SEX

TOURISM_NATIONAL_ECON %>%
  left_join(TOURISM_NATIONAL_ECON_var %>% pluck("CONSUMP"), by = c("CONSUMP" = "id")) %>%
  rename(`CONSUMP Description` = label) %>%
  group_by(CONSUMP, `CONSUMP Description`) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

CONSUMP	CONSUMP Description	Nobs
NAT_ECO_H_INTERNAL_EXPEND	Internal tourism expenditure	4831
NAT_ECO_H_DOM_EXPEND	Domestic tourism expenditure	4824
NAT_ECO_H_INBD_EXPEND	Inbound tourism expenditure	4760
NAT_ECO_H_INTERNAL_CONSUMP	Internal tourism consumption	4760
NAT_ECO_H_OTH_COMPO_CONSUMP	Other components of tourism consumption	1680