Code
%>%
NATIONAL_NC8PAYSE group_by(flow) %>%
summarise(Nobs = n()) %>%
if (is_html_output()) print_table(.) else .} {
flow | Nobs |
---|---|
E | 2730314 |
Data
%>%
NATIONAL_NC8PAYSE group_by(flow) %>%
summarise(Nobs = n()) %>%
if (is_html_output()) print_table(.) else .} {
flow | Nobs |
---|---|
E | 2730314 |
%>%
NATIONAL_NC8PAYSE left_join(A129, by = "A129") %>%
group_by(A129, a129) %>%
summarise(Nobs = n()) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
NATIONAL_NC8PAYSE mutate(CPF6 = as.numeric(CPF6)) %>%
left_join(CPF6, by = "CPF6") %>%
group_by(CPF6, Cpf6) %>%
summarise(Nobs = n()) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
NATIONAL_NC8PAYSE mutate(CPF6 = as.numeric(CPF6)) %>%
left_join(CPF6, by = "CPF6") %>%
left_join(A129, by = "A129") %>%
group_by(A129, a129, CPF6, Cpf6) %>%
summarise(Nobs = n()) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
NATIONAL_NC8PAYSE left_join(country, by = "country") %>%
group_by(country, Country) %>%
summarise(Nobs = n()) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {