Code
met_lfu3pers %>%
left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| unit | Unit | Nobs |
|---|---|---|
| THS_PER | Thousand persons | 84821 |
Data - Eurostat
met_lfu3pers %>%
left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| unit | Unit | Nobs |
|---|---|---|
| THS_PER | Thousand persons | 84821 |
met_lfu3pers %>%
left_join(sex, by = "sex") %>%
group_by(sex, Sex) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| sex | Sex | Nobs |
|---|---|---|
| T | Total | 28735 |
| M | Males | 28107 |
| F | Females | 27979 |
met_lfu3pers %>%
left_join(age, by = "age") %>%
group_by(age, Age) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| age | Age | Nobs |
|---|---|---|
| Y_GE15 | 15 years or over | 20083 |
| Y_GE25 | 25 years or over | 19648 |
| Y15-24 | From 15 to 24 years | 19166 |
| Y20-64 | From 20 to 64 years | 13378 |
| Y15-74 | From 15 to 74 years | 9253 |
| Y15-29 | From 15 to 29 years | 3293 |
met_lfu3pers %>%
left_join(metroreg, by = "metroreg") %>%
group_by(metroreg, Metroreg) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}