Population by sex, age, citizenship, labour status and NUTS 2 regions - lfst_r_lfsd2pwn

Data - Eurostat

citizen

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

wstatus

Code
lfst_r_lfsd2pwn %>%
  left_join(wstatus, by = "wstatus") %>%
  group_by(wstatus, Wstatus) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
wstatus Wstatus Nobs
POP Population 1029447
ACT Persons in the labour force (former name: active persons) 998490
EMP Employed persons 988203
INAC Persons outside the labour force (former name: inactive persons) 985186
UNE Unemployed persons 889300
UNK Unknown 270

unit

Code
lfst_r_lfsd2pwn %>%
  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 4890896

sex

Code
lfst_r_lfsd2pwn %>%
  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 1670819
M Males 1610518
F Females 1609559

age

Code
lfst_r_lfsd2pwn %>%
  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 837993
Y15-74 From 15 to 74 years 836574
Y15-64 From 15 to 64 years 833948
Y20-64 From 20 to 64 years 831285
Y25-54 From 25 to 54 years 817447
Y15-24 From 15 to 24 years 733649

geo

Code
lfst_r_lfsd2pwn %>%
  left_join(geo, by = "geo") %>%
  group_by(geo, Geo) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

time

Code
lfst_r_lfsd2pwn %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}