Code
%>%
agr_r_accts left_join(indic_ag, by = "indic_ag") %>%
group_by(indic_ag, Indic_ag) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
indic_ag | Indic_ag | Nobs |
---|---|---|
PROD_BP | Production value at basic price | 1341712 |
PROD_PP | Production value at producer price | 1059398 |
SUBS | Subsidies on products | 956796 |
TAX | Taxes on products | 874934 |