Key tourism indicators - TOURISM_KEY_IND_PC

Data - OECD

Author

François Geerolf

Info

Last observation: A: 2021 (N = 28)

First observation: A: 2008 (N = 72)

Last data update: 02 aoû 2026, 09:17. Last compile: 18 aoû 2026, 03:34

Structure

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 .}