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 |
PPRF %>%
left_join(PPRF_var$VAL %>%
setNames(c("VAL", "Val")), by = "VAL") %>%
group_by(VAL, Val) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| VAL | Val | Nobs |
|---|---|---|
| MTM | Mark-to-market | 547 |
| NA | Not applicable | 262 |
| BV | Book value | 73 |