Code
%>%
demo_r_mwk3_ts left_join(sex, by = "sex") %>%
group_by(sex, Sex) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
sex | Sex | Nobs |
---|---|---|
T | Total | 1253398 |
M | Males | 1232669 |
F | Females | 1232652 |