Code
%>%
ei_bpm6fa_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 .} {
Data - Eurostat
%>%
ei_bpm6fa_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 .} {
%>%
ei_bpm6fa_q left_join(partner, by = "partner") %>%
group_by(partner, Partner) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
partner | Partner | Nobs |
---|---|---|
WRL_REST | Rest of the world | 49268 |
EXT_EU27_2020 | Extra-EU27 (from 2020) | 784 |
EXT_EU28 | Extra-EU28 (2013-2020) | 672 |
EXT_EA20 | Extra-euro area - 20 countries (from 2023) | 644 |
%>%
ei_bpm6fa_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 |
---|---|---|
NET | Net | 21457 |
LIAB | Liabilities | 14961 |
ASS | Assets | 14950 |
%>%
ei_bpm6fa_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 | 51368 |
%>%
ei_bpm6fa_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 | 51368 |
%>%
ei_bpm6fa_q left_join(s_adj, by = "s_adj") %>%
group_by(s_adj, S_adj) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
s_adj | S_adj | Nobs |
---|---|---|
NSA | Unadjusted data (i.e. neither seasonally adjusted nor calendar adjusted data) | 51368 |
%>%
ei_bpm6fa_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 | 51368 |
%>%
ei_bpm6fa_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 |
---|---|---|
MIO_EUR | Million euro | 51368 |
%>%
ei_bpm6fa_q left_join(geo, by = "geo") %>%
group_by(geo, Geo) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {