Code
PPRF |>
left_join(PPRF_var$TYPE |>
setNames(c("TYPE", "Type")), by = "TYPE") |>
group_by(TYPE, Type) |>
summarise(Nobs = n()) |>
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| TYPE | Type | Nobs |
|---|---|---|
| SSRF | Social security reserve fund | 583 |
| SPRF | Sovereign pension reserve fund | 299 |