Last observation: 2025 (N = 90787)
First observation: 2004 (N = 52452)
Last data update: 14 aoû 2026, 22:30. Last compile: 18 aoû 2026, 00:23
Data - Eurostat
Last observation: 2025 (N = 90787)
First observation: 2004 (N = 52452)
Last data update: 14 aoû 2026, 22:30. Last compile: 18 aoû 2026, 00:23
edat_lfs_9905 |>
filter(isced11 == "ED0-2",
age == "Y15-74",
geo %in% c("EA19", "DE", "ES", "FR", "IT"),
isco08 == "TOTAL",
sex == "T") %>%
select_if(~ n_distinct(.) > 1) |>
year_to_date() |>
filter(date >= as.Date("1995-01-01")) |>
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
mutate(color = ifelse(geo == "EA19", color2, color)) |>
mutate(color = ifelse(geo == "ES", color2, color)) |>
mutate(values = values / 100) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("% Employés du 1er cycle de l'enseignement secondaire") +
scale_color_identity() + add_flags +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 2),
labels = percent_format(accuracy = 1))
edat_lfs_9905 |>
filter(isced11 == "ED3_4",
age == "Y15-74",
isco08 == "TOTAL",
geo %in% c("EA19", "DE", "ES", "FR", "IT"),
sex == "T") |>
year_to_date() |>
filter(date >= as.Date("1995-01-01")) |>
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
mutate(color = ifelse(geo == "EA19", color2, color)) |>
mutate(color = ifelse(geo == "ES", color2, color)) |>
mutate(values = values / 100) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("% Employés des niveaux 3 et 4") +
scale_color_identity() + add_flags +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 2),
labels = percent_format(accuracy = 1))
edat_lfs_9905 |>
filter(isced11 == "ED5-8",
age == "Y15-74",
geo %in% c("EA19", "DE", "ES", "FR", "IT"),
isco08 == "TOTAL",
sex == "T") |>
year_to_date() |>
filter(date >= as.Date("1995-01-01")) |>
mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
mutate(Geo = ifelse(geo == "EA19", "Europe", Geo)) |>
left_join(colors, by = c("Geo" = "country")) |>
mutate(color = ifelse(geo == "EA19", color2, color)) |>
mutate(color = ifelse(geo == "ES", color2, color)) |>
mutate(values = values / 100) |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + xlab("") + ylab("% Employés des niveaux 5 à 8") +
scale_color_identity() + add_flags +
scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = 0.01*seq(-500, 200, 2),
labels = percent_format(accuracy = 1))