Code
bop_euins6_q %>%
left_join(currency, by = "currency") %>%
group_by(currency, Currency) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| currency | Currency | Nobs |
|---|---|---|
| EUR | Euro | 12483347 |
Data - Eurostat
bop_euins6_q %>%
left_join(currency, by = "currency") %>%
group_by(currency, Currency) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| currency | Currency | Nobs |
|---|---|---|
| EUR | Euro | 12483347 |
bop_euins6_q %>%
left_join(bop_item, by = "bop_item") %>%
group_by(bop_item, Bop_item) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}bop_euins6_q %>%
left_join(sector10, by = "sector10") %>%
group_by(sector10, Sector10) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| sector10 | Sector10 | Nobs |
|---|---|---|
| S1 | Total economy | 6611841 |
| S13 | General Government | 5111420 |
| S12M | Financial corporations other than MFIs | 760086 |
bop_euins6_q %>%
left_join(sectpart, by = "sectpart") %>%
group_by(sectpart, Sectpart) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| sectpart | Sectpart | Nobs |
|---|---|---|
| S1 | Total economy | 8037672 |
| S13 | General Government | 4170158 |
| S1P | Other sectors than MFIs and general government | 258877 |
| S1W | Other sectors than General Government | 16640 |
bop_euins6_q %>%
left_join(stk_flow, by = "stk_flow") %>%
group_by(stk_flow, Stk_flow) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| stk_flow | Stk_flow | Nobs |
|---|---|---|
| BAL | Balance | 4929906 |
| DEB | Debit | 4151923 |
| CRE | Credit | 1825447 |
| ASS | Assets | 745273 |
| NET | Net | 735257 |
| LIAB | Liabilities | 95541 |
bop_euins6_q %>%
left_join(partner, by = "partner") %>%
group_by(partner, Partner) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}bop_euins6_q %>%
left_join(geo, by = "geo") %>%
group_by(geo, Geo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
{if (is_html_output()) print_table(.) else .}| geo | Geo | Nobs |
|---|---|---|
| EUI_X_EAI | EU institutions except the institutions of the euro area (aggregate changing according to the context) | 5319648 |
| COMM | European Commission | 5003301 |
| EDF | European Development Fund | 1295884 |
| EIB | European Investment Bank (EIB) | 864514 |