Financial account - quarterly data - ei_bpm6fa_q

Data - Eurostat

bop_item

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 .}

partner

Code
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

stk_flow

Code
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

sector10

Code
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

sectpart

Code
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

s_adj

Code
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

sectpart

Code
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

currency

Code
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

geo

Code
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 .}