Key tourism indicators - TOURISM_KEY_IND_PC

Data - OECD

Author

KEY_IND_PC

Code

TOURISM_KEY_IND_PC %>%
  left_join(TOURISM_KEY_IND_PC_var$KEY_IND_PC, by = "KEY_IND_PC") %>%
  group_by(KEY_IND_PC, Key_ind_pc) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

KEY_IND_PC	Key_ind_pc	Nobs
KEYIND_TOUREMPDIRECTPC	Total tourism employment (direct) as % of total employment	561
KEYIND_TOURGVAPC	Tourism GVA (direct) as % of total GVA	367
KEYIND_TOURGDPPC	Tourism GDP (direct) as % of total GDP	266

COUNTRY

All

Code

TOURISM_KEY_IND_PC %>%
  left_join(TOURISM_KEY_IND_PC_var$COUNTRY, by = "COUNTRY") %>%
  group_by(COUNTRY, Country) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Country))),
         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 .}

Cross

Code

TOURISM_KEY_IND_PC %>%
  left_join(TOURISM_KEY_IND_PC_var$COUNTRY, by = "COUNTRY") %>%
  group_by(COUNTRY, Country, KEY_IND_PC) %>%
  arrange(obsTime) %>%
  summarise(Nobs = paste0(n(), " / ", first(obsTime), "-", last(obsTime))) %>%
  spread(KEY_IND_PC, Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Country))),
         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

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

obsTime	Nobs
2021	29
2020	67
2019	93
2018	88
2017	94
2016	102
2015	100
2014	96
2013	92
2012	97
2011	93
2010	89
2009	82
2008	72

Tourism

Code

TOURISM_KEY_IND_PC %>%
  filter(obsTime == "2017") %>%
  left_join(TOURISM_KEY_IND_PC_var$KEY_IND_PC, by = "KEY_IND_PC") %>%
  left_join(TOURISM_KEY_IND_PC_var$COUNTRY, by = "COUNTRY") %>%
  na.omit %>%
  arrange(COUNTRY, Key_ind_pc, obsTime) %>%
  group_by(COUNTRY, Country, Key_ind_pc) %>%
  summarise(obsValue = last(obsValue)) %>%
  spread(Key_ind_pc, obsValue) %>%
  arrange(-`Tourism GDP (direct) as % of total GDP`) %>%
  mutate_at(vars(3, 4), funs(paste0(round(., 1), "%"))) %>%
  select(1, 2, 4, 3) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Country))),
         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 .}

Total tourism employment (direct) as % of total employment

Code

TOURISM_KEY_IND_PC %>%
  filter(KEY_IND_PC == "KEYIND_TOUREMPDIRECTPC") %>%
  left_join(TOURISM_KEY_IND_PC_var$COUNTRY, by = "COUNTRY") %>%
  arrange(COUNTRY, obsTime) %>%
  group_by(COUNTRY, Country) %>%
  summarise(Year = last(obsTime),
            `Tourism (% of employment)` = last(obsValue)) %>%
  arrange(-`Tourism (% of employment)`) %>%
  mutate_at(vars(4), funs(paste0(round(., 1), "%"))) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Country))),
         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 .}