Code
%>%
DF_UNData_UIS left_join(FREQ, by = "FREQ") %>%
group_by(FREQ, Freq) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
FREQ | Freq | Nobs |
---|---|---|
A | Annual | 1682984 |
Data - UN
%>%
DF_UNData_UIS left_join(FREQ, by = "FREQ") %>%
group_by(FREQ, Freq) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
FREQ | Freq | Nobs |
---|---|---|
A | Annual | 1682984 |
%>%
DF_UNData_UIS group_by(UNIT) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
UNIT | Nobs |
---|---|
NUMBER | 965272 |
PERCENT | 714557 |
RATIO | 3155 |
%>%
DF_UNData_UIS group_by(AGE_GROUP) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
AGE_GROUP | Nobs |
---|---|
NA | 1665015 |
025_075_Y | 12623 |
015_010_Y | 5346 |
%>%
DF_UNData_UIS group_by(SERIES) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
DF_UNData_UIS left_join(REF_AREA, by = "REF_AREA") %>%
group_by(REF_AREA, Ref_area) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {