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 | 8084 |
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 | 8084 |
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 | 1256 |
| Y15-19 | From 15 to 19 years | 731 |
| Y20-24 | From 20 to 24 years | 726 |
| UNK | Unknown | 719 |
| Y30-34 | From 30 to 34 years | 714 |
| Y35-39 | From 35 to 39 years | 707 |
| Y25-29 | From 25 to 29 years | 688 |
| Y40-44 | From 40 to 44 years | 683 |
| Y_LT15 | Less than 15 years | 665 |
| Y45-49 | From 45 to 49 years | 661 |
| Y_GE50 | 50 years or over | 534 |
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 .}