Code
%>%
namq_10_an6 left_join(asset10, by = "asset10") %>%
group_by(asset10, Asset10) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
Data - Eurostat
%>%
namq_10_an6 left_join(asset10, by = "asset10") %>%
group_by(asset10, Asset10) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
namq_10_an6 left_join(s_adj, by = "s_adj") %>%
group_by(s_adj, S_adj) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
s_adj | S_adj | Nobs |
---|---|---|
SCA | Seasonally and calendar adjusted data | 1044178 |
NSA | Unadjusted data (i.e. neither seasonally adjusted nor calendar adjusted data) | 1014490 |
CA | Calendar adjusted data, not seasonally adjusted data | 101864 |
SA | Seasonally adjusted data, not calendar adjusted data | 74354 |
%>%
namq_10_an6 left_join(geo, by = "geo") %>%
group_by(geo, Geo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
namq_10_an6 left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {