Population and employment - nama_10_pe

Data - Eurostat

Author

François Geerolf

Info

Last observation: 2025 (N = 498)

First observation: 1975 (N = 22)

Last data update: 14 aoû 2026, 20:51. Last compile: 17 aoû 2026, 17:03

Structure

NULL

Population Table

English

Code

nama_10_pe |>
  filter(time %in% c("2019", "2009", "1999", "1989"),
         na_item == "POP_NC",
         unit == "THS_PER") |>
  select(geo, time, values) |>
  mutate(values = round(values/1000, 1)) |>
  
  spread(time, values) |>
  arrange(- `2019`) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

French

Code

geo <- read_parquet("geo_fr.parquet")
nama_10_pe |>
  filter(time %in% c("2019", "2009", "1999", "1989"),
         na_item == "POP_NC",
         unit == "THS_PER") |>
  select(geo, time, values) |>
  mutate(values = round(values/1000, 1)) |>
  
  spread(time, values) |>
  arrange(- `2019`) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

png table

Code

include_graphics3("bib/eurostat/nama_10_pe_ex1.png")

Employment Table

Code

geo <- read_parquet("geo.parquet")
nama_10_pe |>
  filter(time %in% c("2019", "2009", "1999", "1989"),
         na_item == "EMP_DC",
         unit == "THS_PER") |>
  select(geo, time, values) |>
  mutate(values = round(values/1000, 1)) |>
  
  spread(time, values) |>
  arrange(- `2019`) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Employment / Population Table

Graph

Code

geo <- read_parquet("geo_fr.parquet")
nama_10_pe |>
  filter(time %in% c("2019", "2009", "1999", "1989"),
         na_item %in% c("EMP_DC", "POP_NC"),
         unit == "THS_PER") |>
  select(geo, na_item, time, values) |>
  spread(na_item, values) |>
  transmute(geo, time, values = 100*EMP_DC/POP_NC) |>
  mutate(values = round(values, 1)) |>
  
  spread(time, values) |>
  arrange(- `2019`) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

France, Italy, Germany, Poland, Hungary

Code

nama_10_pe |>
  filter(geo %in% c("FR", "DE", "IT", "PL", "HU"),
         na_item %in% c("EMP_DC", "POP_NC"),
         unit == "THS_PER") |>
  select(geo, Geo, na_item, time, values) |>
  spread(na_item, values) |>
  transmute(geo, Geo, time, values = EMP_DC/POP_NC) |>
  year_to_date() |>
  add_colors() |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  scale_color_identity() + add_flags +
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("") +
  scale_y_continuous(breaks = 0.01*seq(-30, 70, 1),
                labels = percent_format(a = 1))

Poland, Germany, Hungary

Code

nama_10_pe |>
  filter(geo %in% c("PL", "DE", "HU"),
         na_item %in% c("EMP_DC", "POP_NC"),
         unit == "THS_PER") |>
  select(geo, Geo, na_item, time, values) |>
  spread(na_item, values) |>
  transmute(geo, Geo, time, values = EMP_DC/POP_NC) |>
  year_to_date() |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  scale_color_identity() + add_flags +
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("") +
  scale_y_continuous(breaks = 0.01*seq(-30, 70, 1),
                labels = percent_format(a = 1))

France, Italy, Spain

Code

nama_10_pe |>
  filter(geo %in% c("FR", "IT", "ES"),
         na_item %in% c("EMP_DC", "POP_NC"),
         unit == "THS_PER") |>
  select(geo, Geo, na_item, time, values) |>
  spread(na_item, values) |>
  transmute(geo, Geo, time, values = EMP_DC/POP_NC) |>
  year_to_date() |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  scale_color_identity() + add_flags +
  theme_minimal()  +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("") +
  scale_y_continuous(breaks = 0.01*seq(-30, 70, 1),
                labels = percent_format(a = 1))