Last observation: 2001 (N = 493041)
First observation: 2001 (N = 493041)
Last data update: 15 juil. 2026, 02:53. Last compile: 01 sept. 2026, 23:32
Data - Eurostat
Last observation: 2001 (N = 493041)
First observation: 2001 (N = 493041)
Last data update: 15 juil. 2026, 02:53. Last compile: 01 sept. 2026, 23:32
cens_01reisco |>
filter(geo %in% c("FR", "ES", "PT", "IT", "PL"),
sex == "T",
age == "TOTAL",
isced97 == "ED_NED",
!isco88 %in% c("TOTAL", "UNK")) |>
group_by(geo) |>
mutate(share = values / sum(values)) |>
ungroup() |>
ggplot() + geom_col(aes(x = Isco88, y = share, fill = Geo), position = "dodge") +
theme_minimal() +
theme(axis.text.x = element_text(angle = 45, hjust = 1),
legend.title = element_blank()) +
xlab("") + ylab("Share of employed persons") +
scale_y_continuous(labels = scales::percent_format(accuracy = 1))
cens_01reisco |>
filter(geo == "FR",
sex %in% c("F", "M"),
age == "TOTAL",
isced97 == "ED_NED",
!isco88 %in% c("TOTAL", "UNK")) |>
group_by(sex) |>
mutate(share = values / sum(values)) |>
ungroup() |>
ggplot() + geom_col(aes(x = Isco88, y = share, fill = Sex), position = "dodge") +
theme_minimal() +
theme(axis.text.x = element_text(angle = 45, hjust = 1),
legend.position = c(0.85, 0.85),
legend.title = element_blank()) +
xlab("") + ylab("Share of employed persons") +
scale_y_continuous(labels = scales::percent_format(accuracy = 1))