Population and employment - nama_10_pe

Data - Eurostat

Author

François Geerolf

Info

Last observation: Annual: 2025 (N = 482)

First observation: Annual: 1975 (N = 36)

Last data update: 15 avr 2026, 23:12. Last compile: 16 avr 2026, 02:31

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

load_data("eurostat/geo_fr.RData")
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

load_data("eurostat/geo.RData")
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

load_data("eurostat/geo_fr.RData")
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))