Code
lfst_r_lmdur %>%
left_join(statinfo, by = "statinfo") %>%
group_by(statinfo, Statinfo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| statinfo | Statinfo | Nobs |
|---|---|---|
| DISP_NUTS2 | Dispersion at NUTS level 2 | 5302 |
| DISP_NUTS3 | Dispersion at NUTS level 3 | 3187 |