Internal tourism consumption - TOURISM_NATIONAL_ECON

Data - OECD

Author

Code

load_data("oecd/TOURISM_NATIONAL_ECON_var.RData")
TOURISM_NATIONAL_ECON <- read_parquet("TOURISM_NATIONAL_ECON.parquet")

Nobs - Javascript

Code

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

Code

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

Code

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

Code

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