Last observation: 2008 (N = 48370)
First observation: 1992 (N = 6409)
Last data update: 08 août 2026, 17:03. Last compile: 02 sept. 2026, 00:06
Data - Eurostat
Last observation: 2008 (N = 48370)
First observation: 1992 (N = 6409)
Last data update: 08 août 2026, 17:03. Last compile: 02 sept. 2026, 00:06
lfsa_epgan6 |>
filter(geo == "FR",
age == "Y15-64",
sex == "T",
nace_r1 == "TOTAL",
worktime %in% c("FT", "PT")) |>
year_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Worktime)) +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1990, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.25, 0.85),
legend.title = element_blank()) +
xlab("") + ylab("Employment (thousand persons)")
lfsa_epgan6 |>
filter(geo == "FR",
age == "Y15-64",
sex %in% c("F", "M"),
nace_r1 == "TOTAL",
worktime == "PT") |>
year_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Sex)) +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1990, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.25, 0.85),
legend.title = element_blank()) +
xlab("") + ylab("Part-time employment (thousand persons)")
latest_y <- lfsa_epgan6 |>
filter(geo == "FR",
age == "Y15-64",
sex == "T",
worktime == "TOTAL",
nace_r1 == "TOTAL",
!is.na(values)) |>
summarise(m = max(time)) |>
pull(m)
lfsa_epgan6 |>
filter(geo == "FR",
age == "Y15-64",
sex == "T",
worktime == "TOTAL",
nace_r1 != "TOTAL",
time == latest_y) |>
select(Nace_r1, values) |>
arrange(-values) |>
print_table_conditional()| Nace_r1 | values |
|---|---|
| Services | 18863.9 |
| Industry and services (except public administration and community services; activities of households and extra-territorial organizations) | 15459.9 |
| Services (except public administration and community services; activities of households and extra-territorial organizations) | 9475.7 |
| Education; health; other service activities; activities of households; extra-territorial organizations | 6748.9 |
| Industry | 5984.1 |
| Construction | 1864.7 |
| Agriculture; fishing | 774.9 |
| No response | 169.5 |
lfsa_epgan6 |>
filter(geo %in% c("EU15", "EU28", "EU27_2020"),
age == "Y15-64",
nace_r1 == "TOTAL",
sex == "T") |>
year_to_date() |>
mutate(values = values/100) |>
left_join(colors, by = c("Geo" = "country")) |>
ggplot() + geom_line() + theme_minimal() +
aes(x = date, y = values, color = color) +
scale_color_identity() + add_flags +
scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
xlab("") + ylab("Employment Rates") +
scale_y_continuous(breaks = 0.01*seq(0, 200, 1),
labels = scales::percent_format(accuracy = 1))