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 .} {
Data - Eurostat
%>%
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 .} {
%>%
met_d3dens group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
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 .} {