Code
lfst_r_lfur2gac %>%
left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| unit | Unit | Nobs |
|---|---|---|
| PC | Percentage | 846610 |
Data - Eurostat
lfst_r_lfur2gac %>%
left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| unit | Unit | Nobs |
|---|---|---|
| PC | Percentage | 846610 |
lfst_r_lfur2gac %>%
left_join(c_birth, by = "c_birth") %>%
group_by(c_birth, C_birth) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| c_birth | C_birth | Nobs |
|---|---|---|
| TOTAL | Total | 175200 |
| NAT | Reporting country | 163563 |
| FOR | Foreign country | 162040 |
| NEU27_2020_FOR | Non-EU27 countries (from 2020) nor reporting country | 146568 |
| EU27_2020_FOR | EU27 countries (from 2020) except reporting country | 143253 |
| NRP | No response | 55986 |
lfst_r_lfur2gac %>%
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 | 284967 |
| F | Females | 280895 |
| M | Males | 280748 |
lfst_r_lfur2gac %>%
left_join(age, by = "age") %>%
group_by(age, Age) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| age | Age | Nobs |
|---|---|---|
| Y15-74 | From 15 to 74 years | 172185 |
| Y15-64 | From 15 to 64 years | 171712 |
| Y20-64 | From 20 to 64 years | 171119 |
| Y25-54 | From 25 to 54 years | 169167 |
| Y55-64 | From 55 to 64 years | 162427 |
lfst_r_lfur2gac %>%
left_join(geo, by = "geo") %>%
group_by(geo, Geo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}lfst_r_lfur2gac %>%
group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}