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

Data - Eurostat

Author

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	1051094
NAT	Reporting country	939802
FOR	Foreign country	896778
NEU27_2020_FOR	Non-EU27 countries (from 2020) nor reporting country	876972
EU27_2020_FOR	EU27 countries (from 2020) except reporting country	822832
NRP	No response	286344
STLS	Stateless	199238

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	1067566
ACT	Persons in the labour force	1035662
EMP	Employed persons	1025103
INAC	Persons outside the labour force	1021819
UNE	Unemployed persons	922640
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	5073060

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	1732869
M	Males	1670582
F	Females	1669609

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	869193
Y15-74	From 15 to 74 years	867736
Y15-64	From 15 to 64 years	865019
Y20-64	From 20 to 64 years	862222
Y25-54	From 25 to 54 years	847855
Y15-24	From 15 to 24 years	761035

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 .}