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 | 7991 |
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 | 7991 |
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 | 1243 |
| Y15-19 | From 15 to 19 years | 723 |
| Y20-24 | From 20 to 24 years | 718 |
| UNK | Unknown | 711 |
| Y30-34 | From 30 to 34 years | 706 |
| Y35-39 | From 35 to 39 years | 699 |
| Y25-29 | From 25 to 29 years | 680 |
| Y40-44 | From 40 to 44 years | 675 |
| Y_LT15 | Less than 15 years | 657 |
| Y45-49 | From 45 to 49 years | 653 |
| Y_GE50 | 50 years or over | 526 |
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 .}