Code
%>%
tin00038 left_join(nace_r1, by = "nace_r1") %>%
group_by(nace_r1, Nace_r1) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
nace_r1 | Nace_r1 | Nobs |
---|---|---|
J6602 | Pension funding | 229 |
Data - Eurostat
%>%
tin00038 left_join(nace_r1, by = "nace_r1") %>%
group_by(nace_r1, Nace_r1) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
nace_r1 | Nace_r1 | Nobs |
---|---|---|
J6602 | Pension funding | 229 |
%>%
tin00038 left_join(indic_sb, by = "indic_sb") %>%
group_by(indic_sb, Indic_sb) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
indic_sb | Indic_sb | Nobs |
---|---|---|
V48030 | Total expenditure on pensions - million euro | 229 |
%>%
tin00038 left_join(geo, by = "geo") %>%
group_by(geo, Geo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
mutate(Flag = gsub(" ", "-", str_to_lower(Geo)),
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 .} {
%>%
tin00038 group_by(time) %>%
summarise(Nobs = n()) %>%
print_table_conditional
time | Nobs |
---|---|
2001 | 13 |
2002 | 8 |
2003 | 19 |
2004 | 21 |
2005 | 20 |
2006 | 19 |
2007 | 17 |
2008 | 24 |
2009 | 23 |
2010 | 22 |
2011 | 22 |
2012 | 21 |
%>%
tin00038 filter(time %in% c("2001", "2006", "2009", "2012")) %>%
left_join(geo, by = "geo") %>%
select(geo, Geo, time, values) %>%
spread(time, values) %>%
mutate(Flag = gsub(" ", "-", str_to_lower(Geo)),
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 .} {