Population density by metropolitan regions - met_d3dens

Data - Eurostat

metroreg

Code
met_d3dens %>%
  left_join(metroreg, by = "metroreg") %>%
  group_by(metroreg, Metroreg) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

metroreg

Code
met_d3dens %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Decreasing Density

Code
met_d3dens %>%
  filter(time == "2016") %>%
  left_join(metroreg, by = "metroreg") %>%
  select(1, 4, 3) %>%
  arrange(-values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}