Last observation: A: 2025 (N = 8320)
First observation: A: 1976 (N = 768)
Last data update: 17 aoû 2026, 00:53. Last compile: 18 aoû 2026, 00:02
Data - OECD
Last observation: A: 2025 (N = 8320)
First observation: A: 1976 (N = 768)
Last data update: 17 aoû 2026, 00:53. Last compile: 18 aoû 2026, 00:02
FTPT_COMMON_INC |>
filter(MEASURE == "EMP_PT",
AGE == "Y15T64",
obsTime == "2023",
WORKER_STATUS == "_T") %>%
select_if(~ n_distinct(.) > 1) |>
arrange(-obsValue) |>
spread(SEX, obsValue) |>
arrange(-F) |>
print_table_conditional()FTPT_COMMON_INC |>
filter(MEASURE == "EMP_PT",
REF_AREA %in% c("FRA", "NLD", "DEU", "EA20"),
AGE == "Y15T64",
WORKER_STATUS == "_T") |>
year_to_date() |>
arrange(desc(date)) |>
mutate(Ref_area = ifelse(REF_AREA == "EA20", "Europe", Ref_area)) |>
group_by(Ref_area) |>
arrange(date) |>
left_join(colors, by = c("Ref_area" = "country")) |>
mutate(obsValue = obsValue/100) |>
ggplot() + geom_line(aes(x = date, y = obsValue, color = color, linetype = Sex)) +
scale_color_identity() + add_6flags + theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = c(0.2, 0.5)) +
scale_y_continuous(labels = scales::percent_format(),
breaks = 0.01*seq(0, 100, 10))