Code
GLI <- read_parquet("GLI.parquet")Data - BIS
GLI <- read_parquet("GLI.parquet")GLI %>%
arrange(iso3c, date) %>%
group_by(iso3c, iso2c, `Borrowers' country`) %>%
summarise(Nobs = n(),
start = first(date),
end = last(date)) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}GLI %>%
group_by(FREQ, Frequency) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| FREQ | Frequency | Nobs |
|---|---|---|
| Q | Quarterly | 24153 |
GLI %>%
group_by(BORROWERS_SECTOR, `Borrowers' sector`) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| BORROWERS_SECTOR | Borrowers' sector | Nobs |
|---|---|---|
| N | Non-banks, total | 17203 |
| S | Non-financial private sector | 3328 |
| P | Non-financial sectors | 1872 |
| G | General government | 624 |
| A | All sectors | 563 |
| B | Banks, total | 563 |
GLI %>%
group_by(LENDERS_SECTOR, `Lending sector`) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| LENDERS_SECTOR | Lending sector | Nobs |
|---|---|---|
| A | All sectors | 14976 |
| B | Banks, total | 9177 |