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 | 1482836 |
| PROD_PP | Production value at producer price | 1199635 |
| SUBS | Subsidies on products | 1089958 |
| TAX | Taxes on products | 1009930 |