lfsi_long_q %>%filter(geo =="FR", sex =="T", s_adj =="SA", unit =="THS_PER", time %in%c("2015Q2", "2021Q2", "2019Q2", "2017Q2")) %>%filter(!is.na(values)) %>%left_join(indic_em, by ="indic_em") %>%select(indic_em, Indic_em, time, values) %>%spread(time, values) %>%print_table_conditional()
indic_em
Indic_em
2015Q2
2017Q2
2019Q2
2021Q2
E_E
Transition employment - employment
25273
25564
25988
26287
E_I
Transition employment - outside the labour force
564
550
598
636
E_U
Transition employment - unemployment
525
438
443
445
I_E
Transition outside the labour force - employment
447
615
501
708
I_I
Transition outside the labour force - outside the labour force
16599
16883
17142
16849
I_U
Transition outside the labour force - unemployment
678
728
633
710
U_E
Transition unemployment - employment
646
649
616
638
U_I
Transition unemployment - outside the labour force
507
523
539
529
U_U
Transition unemployment - unemployment
1873
1642
1415
1234
EE, II
Code
lfsi_long_q %>%filter(geo =="FR", sex =="T", s_adj =="SA", unit !="THS_PER", indic_em %in%c("E_E", "I_I")) %>%filter(!is.na(values)) %>%left_join(indic_em, by ="indic_em") %>%select(indic_em, Indic_em, time, values) %>%quarter_to_date() %>% ggplot +theme_minimal() +xlab("") +ylab("") +geom_line(aes(x = date, y = values/100, color = Indic_em)) +scale_color_manual(values =viridis(3)[1:2]) +scale_x_date(breaks =as.Date(paste0(seq(1960, 2022, 1), "-01-01")),labels =date_format("%y")) +theme(legend.position =c(0.3, 0.85),legend.title =element_blank()) +scale_y_continuous(breaks =0.01*seq(0, 100, 1),labels = scales::percent_format(acc =1))
Italy
EE, II
Code
lfsi_long_q %>%filter(geo =="IT", sex =="T", s_adj =="SA", unit !="THS_PER", indic_em %in%c("E_E", "I_I")) %>%filter(!is.na(values)) %>%left_join(indic_em, by ="indic_em") %>%select(indic_em, Indic_em, time, values) %>%quarter_to_date() %>% ggplot +theme_minimal() +xlab("") +ylab("") +geom_line(aes(x = date, y = values/100, color = Indic_em)) +scale_color_manual(values =viridis(3)[1:2]) +scale_x_date(breaks =as.Date(paste0(seq(1960, 2022, 1), "-01-01")),labels =date_format("%y")) +theme(legend.position =c(0.3, 0.85),legend.title =element_blank()) +scale_y_continuous(breaks =0.01*seq(0, 100, 1),labels = scales::percent_format(acc =1))