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