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 | 1431318 |
PROD_PP | Production value at producer price | 1136097 |
SUBS | Subsidies on products | 1027442 |
TAX | Taxes on products | 946410 |