Population by status in employment, occupation and NUTS 2 region - cens_11empo_r2
Data - Eurostat
Info
Last observation: Annual: 2011 (N = 3,675,197)
First observation: Annual: 2011 (N = 3,675,197)
Last data update: 23 jul 2026, 23:17. Last compile: 24 jul 2026, 01:01
Structure
2011 Population Census: Employment Status
Self-Employment Rate by Country
Code
cens_11empo_r2 %>%
filter(nchar(geo) == 2,
age == "TOTAL",
sex == "T",
isco08 == "TOTAL",
wstatus %in% c("EMP", "SELF_S", "SELF_NS")) %>%
select(geo, Geo, wstatus, values) %>%
spread(wstatus, values) %>%
mutate(rate = (SELF_S + SELF_NS) / EMP) %>%
filter(!is.na(rate)) %>%
left_join(colors, by = c("Geo" = "country")) %>%
mutate(color = ifelse(is.na(color), "grey50", color)) %>%
ggplot + geom_col(aes(x = reorder(Geo, rate), y = rate, fill = color)) +
scale_fill_identity() +
coord_flip() +
theme_minimal() +
xlab("") + ylab("Self-employed share of employed population, 2011") +
scale_y_continuous(labels = scales::percent_format(accuracy = 1))
Occupational Structure: France vs. Germany
Code
cens_11empo_r2 %>%
filter(geo %in% c("FR", "DE"),
age == "TOTAL",
sex == "T",
wstatus == "EMP",
!isco08 %in% c("NAP", "TOTAL", "UNK")) %>%
group_by(geo) %>%
mutate(share = values / sum(values)) %>%
ungroup() %>%
ggplot + geom_col(aes(x = reorder(Isco08, share), y = share, fill = Geo),
position = "dodge") +
coord_flip() +
theme_minimal() +
theme(legend.position = c(0.85, 0.12),
legend.title = element_blank()) +
xlab("") + ylab("Share of employed persons, 2011") +
scale_y_continuous(labels = scales::percent_format(accuracy = 1))