Code
%>%
lfst_r_lfsd2pwn left_join(citizen, by = "citizen") %>%
group_by(citizen, Citizen) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
citizen | Citizen | Nobs |
---|---|---|
TOTAL | Total | 1010325 |
NAT | Reporting country | 906143 |
FOR | Foreign country | 864245 |
NEU27_2020_FOR | Non-EU27 countries (from 2020) nor reporting country | 844920 |
EU27_2020_FOR | EU27 countries (from 2020) except reporting country | 793636 |
NRP | No response | 280002 |
STLS | Stateless | 191625 |