Code
%>%
bop_euins6_a 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 | 5483395 |
Data - Eurostat
%>%
bop_euins6_a 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 | 5483395 |
%>%
bop_euins6_a 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_a 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 | 3085973 |
S13 | General Government | 2104157 |
S12M | Financial corporations other than MFIs | 293265 |
%>%
bop_euins6_a 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 | 3717690 |
S13 | General Government | 1677134 |
S1P | Other sectors than MFIs and general government | 80241 |
S1W | Other sectors than General Government | 8330 |
%>%
bop_euins6_a 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 | 2142925 |
DEB | Debit | 1772595 |
CRE | Credit | 989081 |
ASS | Assets | 272692 |
NET | Net | 268628 |
LIAB | Liabilities | 37474 |
%>%
bop_euins6_a 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_a 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) | 1847625 |
COMM | European Commission | 1499094 |
EU_BDG | All EU institutions financed via the EU Budget | 554608 |
EDF | European Development Fund | 332928 |
EIB | European Investment Bank (EIB) | 232919 |
PARL | European Parliament | 199061 |
EUB_OTH | Other EU institutions financed via the EU Budget | 131045 |
CONS | Council of the European Union | 130741 |
CURIA | Court of Justice of the European Union | 118246 |
ECA | European Court of Auditors | 112836 |
EIF | European Investment Fund | 85188 |
EESC | European Economic and Social Committee (EESC) | 64038 |
COR | European Committee of the Regions (CoR) | 61151 |
EUB_MNR | Other small EU institutions financed via the EU Budget | 55037 |
IF | Investment Facility | 39287 |
SRB | Single Resolution Board (SRB) | 13761 |
FEMIP | Facility for Euro-Mediterranean Investment and Partnership | 5830 |