Code
demo_fabort %>%
left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| unit | Unit | Nobs |
|---|---|---|
| NR | Number | 8150 |
Data - Eurostat
demo_fabort %>%
left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| unit | Unit | Nobs |
|---|---|---|
| NR | Number | 8150 |
demo_fabort %>%
left_join(age, by = "age") %>%
group_by(age, Age) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| age | Age | Nobs |
|---|---|---|
| TOTAL | Total | 1262 |
| Y15-19 | From 15 to 19 years | 737 |
| Y20-24 | From 20 to 24 years | 732 |
| UNK | Unknown | 725 |
| Y30-34 | From 30 to 34 years | 720 |
| Y35-39 | From 35 to 39 years | 713 |
| Y25-29 | From 25 to 29 years | 694 |
| Y40-44 | From 40 to 44 years | 689 |
| Y_LT15 | Less than 15 years | 671 |
| Y45-49 | From 45 to 49 years | 667 |
| Y_GE50 | 50 years or over | 540 |
demo_fabort %>%
left_join(geo, by = "geo") %>%
group_by(geo, Geo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}