Average number of usual weekly hours of work in main job, by sex, professional status, full-time/part-time and occupation (hours) - lfsa_ewhuis

Data - Eurostat

unit

Code
lfsa_ewhuis %>%
  group_by(unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
unit Nobs
HR 7484352

sex

Code
lfsa_ewhuis %>%
  group_by(sex) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
sex Nobs
T 2604828
M 2478150
F 2401374

worktime

Code
lfsa_ewhuis %>%
  group_by(worktime) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
worktime Nobs
TOTAL 2556084
FT 2485757
PT 2211836
NRP 230675

wstatus

Code
lfsa_ewhuis %>%
  group_by(wstatus) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
wstatus Nobs
EMP 1077279
NCFAM 1075079
SAL 1058091
NSAL 941565
SELF 921682
SELF_NS 896233
SELF_S 757372
CFAM 664064
NRP 92987

isco08

Code
lfsa_ewhuis %>%
  group_by(isco08) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
isco08 Nobs
TOTAL 862014
OC5 718921
OC3 692781
OC2 692022
OC6 689586
OC7 679246
OC9 670138
OC1 657950
OC8 628619
OC4 626824
NRP 356263
OC0 209988

geo

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