Strictness of employment protection – temporary contracts - EPL_T

Data - OECD

Info

Last observation: A: 2019 (N = 124)

First observation: A: 1985 (N = 20)

Last data update: 02 aoû 2026, 08:59. Last compile: 17 aoû 2026, 23:58

Structure

COUNTRY

SERIES

TIME_FORMAT

France, Germany, Italy

English

EPL_T |>
  filter(SERIES == "EPT_V1",
         COUNTRY %in% c("FRA", "ITA", "DEU")) |>
  left_join(EPL_T_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  left_join(colors, by = c("Country" = "country")) |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags + theme_minimal() +
  xlab("") + ylab("Strictness of employment protection") +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 6, 1),
                     limits = c(0, 6))

French

EPL_T |>
  filter(SERIES == "EPT_V1",
         COUNTRY %in% c("FRA", "ITA", "DEU")) |>
  left_join(EPL_T_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  left_join(colors, by = c("Country" = "country")) |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags + theme_minimal() +
  xlab("") + ylab("Indice de protection de l'emploi") +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 6, 1),
                     limits = c(0, 6))

Australia, United Kingdom, United States

English

EPL_T |>
  filter(SERIES == "EPT_V1",
         COUNTRY %in% c("AUS", "GBR", "USA")) |>
  left_join(EPL_T_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  left_join(colors, by = c("Country" = "country")) |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags + theme_minimal() +
  xlab("") + ylab("Strictness of employment protection") +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 5, 0.2),
                     limits = c(0, 1.6))

French

EPL_T |>
  filter(SERIES == "EPT_V1",
         COUNTRY %in% c("AUS", "GBR", "USA")) |>
  left_join(EPL_T_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  left_join(colors, by = c("Country" = "country")) |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_3flags + theme_minimal() +
  xlab("") + ylab("Indice de protection de l'emploi") +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 5, 0.2),
                     limits = c(0, 1.6))

Australia, United Kingdom, United States, France, Germany, Italy, Spain

English

EPL_T |>
  filter(SERIES == "EPT_V1",
         COUNTRY %in% c("AUS", "GBR", "USA", "FRA", "ITA", "DEU", "ESP")) |>
  left_join(EPL_T_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  left_join(colors, by = c("Country" = "country")) |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_7flags + theme_minimal() +
  xlab("") + ylab("Strictness of employment protection") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 7, 0.5))

French

EPL_T |>
  filter(SERIES == "EPT_V1",
         COUNTRY %in% c("AUS", "GBR", "USA", "FRA", "ITA", "DEU", "ESP")) |>
  left_join(EPL_T_var$COUNTRY, by = "COUNTRY") |>
  year_to_date() |>
  left_join(colors, by = c("Country" = "country")) |>
  rename(Location = Country) |>
  ggplot() + geom_line(aes(x = date, y = obsValue, color = color)) + 
  scale_color_identity() + add_7flags + theme_minimal() +
  xlab("") + ylab("Indice de protection de l'emploi") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 7, 0.5))