sex
Code
edat_lfse_33 %>%
left_join (sex, by = "sex" ) %>%
group_by (sex, Sex) %>%
summarise (Nobs = n ()) %>%
arrange (- Nobs) %>%
{if (is_html_output ()) print_table (.) else .}
T
Total
1289238
M
Males
1282927
F
Females
1280477
unit
Code
edat_lfse_33 %>%
left_join (unit, by = "unit" ) %>%
group_by (unit, Unit) %>%
summarise (Nobs = n ()) %>%
arrange (- Nobs) %>%
{if (is_html_output ()) print_table (.) else .}
isced11
Code
edat_lfse_33 %>%
left_join (isced11, by = "isced11" ) %>%
group_by (isced11, Isced11) %>%
summarise (Nobs = n ()) %>%
arrange (- Nobs) %>%
{if (is_html_output ()) print_table (.) else .}
TOTAL
All ISCED 2011 levels
561782
ED3-8
Upper secondary, post-secondary non-tertiary and tertiary education (levels 3-8)
561629
ED0-4
Less than primary, primary, secondary and post-secondary non-tertiary education (levels 0-4)
561396
ED3_4
Upper secondary and post-secondary non-tertiary education (levels 3 and 4)
561044
ED5-8
Tertiary education (levels 5-8)
560622
ED0-2
Less than primary, primary and lower secondary education (levels 0-2)
538684
ED3_4VOC
Upper secondary and post-secondary non-tertiary education (levels 3 and 4) - vocational
248084
ED3_4GEN
Upper secondary and post-secondary non-tertiary education (levels 3 and 4) - general
244896
NRP
No response
14505
duration
Code
edat_lfse_33 %>%
left_join (duration, by = "duration" ) %>%
group_by (duration, Duration) %>%
summarise (Nobs = n ()) %>%
arrange (- Nobs) %>%
{if (is_html_output ()) print_table (.) else .}
TOTAL
Total
663410
Y_GT3
Over 3 years
643646
Y_GT5
Over 5 years
643359
Y_LE5
5 years or less
640230
Y_LE3
3 years or less
631598
Y1-3
From 1 to 3 years
630399
age
Code
edat_lfse_33 %>%
left_join (age, by = "age" ) %>%
group_by (age, Age) %>%
summarise (Nobs = n ()) %>%
arrange (- Nobs) %>%
{if (is_html_output ()) print_table (.) else .}
Y15-34
From 15 to 34 years
1289365
Y18-34
From 18 to 34 years
1287294
Y20-34
From 20 to 34 years
1275983
geo
Code
edat_lfse_33 %>%
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
edat_lfse_33 %>%
group_by (time) %>%
summarise (Nobs = n ()) %>%
arrange (- Nobs) %>%
{if (is_html_output ()) datatable (., filter = 'top' , rownames = F) else .}
Education Foreign: levels 0-2
Code
edat_lfse_33 %>%
filter (unit == "PC" ,
sex == "T" ,
isced11 == "ED0-2" ,
duration == "TOTAL" ,
age == "Y15-34" ,
nchar (geo) == 4 ,
time == "2018" ) %>%
right_join (europe_NUTS2, by = "geo" ) %>%
filter (long >= - 13.5 , lat >= 33 ) %>%
ggplot (., aes (x = long, y = lat, group = group, fill = values/ 100 )) +
geom_polygon () + coord_map () +
scale_fill_viridis_c (na.value = "white" ,
labels = scales:: percent_format (accuracy = 1 ),
breaks = 0.01 * seq (20 , 100 , 10 ),
values = c (0 , 0.1 , 0.3 , 0.4 , 0.5 , 0.6 , 1 )) +
theme_void () + theme (legend.position = c (0.15 , 0.85 )) +
labs (fill = "Employment \n Primary Education (%)" )
Upper secondary and post-secondary non-tertiary education (levels 3 and 4)
Education Foreign: levels 3-4
Code
edat_lfse_33 %>%
filter (unit == "PC" ,
sex == "T" ,
isced11 == "ED3_4" ,
duration == "TOTAL" ,
age == "Y15-34" ,
nchar (geo) == 4 ,
time == "2018" ) %>%
right_join (europe_NUTS2, by = "geo" ) %>%
filter (long >= - 13.5 , lat >= 33 ) %>%
ggplot (., aes (x = long, y = lat, group = group, fill = values/ 100 )) +
geom_polygon () + coord_map () +
scale_fill_viridis_c (na.value = "white" ,
labels = scales:: percent_format (accuracy = 1 ),
breaks = 0.01 * seq (20 , 100 , 10 ),
values = c (0 , 0.1 , 0.3 , 0.4 , 0.5 , 0.6 , 1 )) +
theme_void () + theme (legend.position = c (0.15 , 0.85 )) +
labs (fill = "Employment \n Secondary Education (%)" )
Education Foreign: levels 5-8
Code
edat_lfse_33 %>%
filter (unit == "PC" ,
sex == "T" ,
isced11 == "ED5-8" ,
duration == "TOTAL" ,
age == "Y15-34" ,
nchar (geo) == 4 ,
time == "2018" ) %>%
right_join (europe_NUTS2, by = "geo" ) %>%
filter (long >= - 13.5 , lat >= 33 ) %>%
ggplot (., aes (x = long, y = lat, group = group, fill = values/ 100 )) +
geom_polygon () + coord_map () +
scale_fill_viridis_c (na.value = "white" ,
labels = scales:: percent_format (accuracy = 1 ),
breaks = 0.01 * seq (20 , 100 , 10 ),
values = c (0 , 0.1 , 0.3 , 0.4 , 0.5 , 0.6 , 1 )) +
theme_void () + theme (legend.position = c (0.15 , 0.85 )) +
labs (fill = "Employment \n Tertiary Education (%)" )