Code
%>%
icw_sr_05 left_join(stk_flow, by = "stk_flow") %>%
group_by(stk_flow, Stk_flow) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
stk_flow | Stk_flow | Nobs |
---|---|---|
EXPN | Expenditure | 84 |
INC | Income | 84 |
SAV | Savings | 84 |
WLTH_NET | Net wealth | 59 |