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 | 1477540 |
| PROD_PP | Production value at producer price | 1194391 |
| SUBS | Subsidies on products | 1084866 |
| TAX | Taxes on products | 1004838 |