Employment by Sex and by Age - GENDER_EMP

Data - OECD

Author

Nobs - Javascript

Code

GENDER_EMP |>
  left_join(GENDER_EMP_var$IND |> 
              setNames(c("IND", "Ind")), by = "IND") |>
  group_by(IND, Ind, SEX, AGE) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

IND

Code

GENDER_EMP |>
  left_join(GENDER_EMP_var$IND |> 
              setNames(c("IND", "Ind")), by = "IND") |>
  group_by(IND, Ind) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

SEX

Code

GENDER_EMP |>
  left_join(GENDER_EMP_var$SEX |> 
              setNames(c("SEX", "Sex")), by = "SEX") |>
  group_by(SEX, Sex) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}

SEX	Sex	Nobs
ALL_PERSONS	All persons	65353
MEN	Men	68292
WOMEN	Women	74189

AGE

Code

GENDER_EMP |>
  left_join(GENDER_EMP_var$AGE |> 
              setNames(c("AGE", "Age")), by = "AGE") |>
  group_by(AGE, Age) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}

AGE	Age	Nobs
1524	15-24	36156
1564	15-64	30444
15PLUS	15+	9518
2554	25-54	36078
3-5	3-5	444
5564	55-64	36000
55PLUS	55+	2160
TOTAL	Total	57034

COU

Code

GENDER_EMP |>
  left_join(GENDER_EMP_var$COU |> 
              setNames(c("COU", "Cou")), by = "COU") |>
  group_by(COU, Cou) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Italy, Germany, Greece, Spain, Portugal, France

Employment / Population Level

Code

GENDER_EMP |>
  filter(IND == "EMP2", 
         SEX == "ALL_PERSONS",
         AGE == "1564",
         COU %in% c("ITA", "DEU", "GRC", "ESP", "PRT", "FRA")) |>
  arrange(COU, TIME) |>
  rename(obsTime = TIME) |>
  year_to_date() |>
  filter(date >= as.Date("2000-01-01")) |>
  left_join(GENDER_EMP_var$COU |> 
              setNames(c("COU", "Cou")), by = "COU") |>
  group_by(COU) |>
  arrange(date) |>
  ggplot() + geom_line(aes(x = date, y = obsValue/100, color = Cou, linetype = Cou)) + 
  scale_color_manual(values = viridis(7)[1:6]) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.9),
        legend.title = element_blank(),
        legend.direction = "horizontal") +
  scale_y_continuous(breaks = 0.01*seq(0, 200, 5),
                     labels = scales::percent_format(accuracy = 1))

Employment / Population Index

Code

GENDER_EMP |>
  filter(IND == "EMP2", 
         SEX == "ALL_PERSONS",
         AGE == "1564",
         COU %in% c("ITA", "DEU", "GRC", "ESP", "PRT", "FRA")) |>
  arrange(COU, TIME) |>
  rename(obsTime = TIME) |>
  year_to_date() |>
  filter(date >= as.Date("2000-01-01")) |>
  left_join(GENDER_EMP_var$COU |> 
              setNames(c("COU", "Cou")), by = "COU") |>
  group_by(COU) |>
  arrange(date) |>
  mutate(obsValue = 100 * obsValue / obsValue[date == as.Date("2007-01-01")]) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = Cou, linetype = Cou)) + 
  scale_color_manual(values = viridis(7)[1:6]) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.9),
        legend.title = element_blank(),
        legend.direction = "horizontal") +
  scale_y_log10(breaks = seq(70, 200, 5))

Unemployment Rate

Code

GENDER_EMP |>
  filter(IND == "EMP3", 
         SEX == "ALL_PERSONS",
         AGE == "1564",
         COU %in% c("ITA", "DEU", "GRC", "ESP", "PRT", "FRA")) |>
  arrange(COU, TIME) |>
  rename(obsTime = TIME) |>
  year_to_date() |>
  filter(date >= as.Date("2000-01-01")) |>
  left_join(GENDER_EMP_var$COU |> 
              setNames(c("COU", "Cou")), by = "COU") |>
  group_by(COU) |>
  arrange(date) |>
  ggplot() + geom_line(aes(x = date, y = obsValue/100, color = Cou, linetype = Cou)) + 
  scale_color_manual(values = viridis(7)[1:6]) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.9),
        legend.title = element_blank(),
        legend.direction = "horizontal") +
  scale_y_continuous(breaks = 0.01*seq(0, 200, 2),
                     labels = scales::percent_format(accuracy = 1))

Unemployment Rate

Code

GENDER_EMP |>
  filter(IND == "EMP3", 
         SEX == "ALL_PERSONS",
         AGE == "1524",
         COU %in% c("ITA", "GRC", "ESP", "PRT", "USA")) |>
  arrange(COU, TIME) |>
  rename(obsTime = TIME) |>
  year_to_enddate() |>
  left_join(GENDER_EMP_var$COU |> 
              setNames(c("COU", "Cou")), by = "COU") |>
  group_by(COU) |>
  arrange(date) |>
  ggplot() + geom_line(aes(x = date, y = obsValue/100, color = Cou, linetype = Cou)) + 
  scale_color_manual(values = viridis(6)[1:5]) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.9),
        legend.title = element_blank(),
        legend.direction = "horizontal") +
  scale_y_continuous(breaks = 0.01*seq(0, 200, 5),
                     labels = scales::percent_format(accuracy = 1))

Germany

Part Time Work in Germany

Code

GENDER_EMP |>
  filter(COU == "DEU", 
         IND == "EMP5", 
         SEX == "ALL_PERSONS") |>
  left_join(GENDER_EMP_var$AGE |> 
              setNames(c("AGE", "Age")), by = "AGE") |>
  mutate(date = paste0(TIME, "-01-01") |> as.Date()) |>
  ggplot() + theme_minimal() +
  geom_line(aes(x = date, y = obsValue/100, color = Age, linetype = Age)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.85, 0.2),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-7, 90, 2),
                     labels = percent_format(accuracy = 1)) +
  ylab("Share of Part-Time Employment") + xlab("")

Share of Involuntary Part Time Work in Germany

All Persons

Code

GENDER_EMP |>
  filter(COU == "DEU", 
         IND == "EMP6", 
         SEX == "ALL_PERSONS") |>
  left_join(GENDER_EMP_var$AGE |> 
              setNames(c("AGE", "Age")), by = "AGE") |>
  mutate(date = paste0(TIME, "-01-01") |> as.Date()) |>
  mutate(obsValue = obsValue/100) |>
  ggplot() + 
  geom_line(aes(x = date, y = obsValue, color = Age, linetype = Age)) +
  scale_color_manual(values = viridis(6)[1:5]) +
  theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.15, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-7, 90, 1),
                     labels = percent_format(accuracy = 1)) +
  ylab("Share of Involuntary Part-Time Employment") + xlab("")

Men

Code

GENDER_EMP |>
  filter(COU == "DEU", 
         IND == "EMP6", 
         SEX == "MEN") |>
  left_join(GENDER_EMP_var$AGE |> 
              setNames(c("AGE", "Age")), by = "AGE") |>
  mutate(date = paste0(TIME, "-01-01") |> as.Date()) |>
  mutate(obsValue = obsValue/100) |>
  ggplot() + 
  geom_line(aes(x = date, y = obsValue, color = Age, linetype = Age)) +
  scale_color_manual(values = viridis(6)[1:5]) +
  theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.15, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-7, 90, 1),
                     labels = percent_format(accuracy = 1)) +
  ylab("Share of Involuntary Part-Time Employment") + xlab("")

Women

Code

GENDER_EMP |>
  filter(COU == "DEU", 
         IND == "EMP6", 
         SEX == "WOMEN") |>
  left_join(GENDER_EMP_var$AGE |> 
              setNames(c("AGE", "Age")), by = "AGE") |>
  mutate(date = paste0(TIME, "-01-01") |> as.Date()) |>
  mutate(obsValue = obsValue/100) |>
  ggplot() + 
  geom_line(aes(x = date, y = obsValue, color = Age, linetype = Age)) +
  scale_color_manual(values = viridis(6)[1:5]) +
  theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.15, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-7, 90, 1),
                     labels = percent_format(accuracy = 1)) +
  ylab("Share of Involuntary Part-Time Employment") + xlab("")