Current account - quarterly data - ei_bpm6ca_q

Data - Eurostat

Author

François Geerolf

bop_item

Code 
ei_bpm6ca_q %>%
  left_join(bop_item, by = "bop_item") %>%
  group_by(bop_item, Bop_item) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
bop_item Bop_item Nobs
G Goods 24294
S Services 24294
CA Current account 23742
IN2 Secondary income 23462
IN1 Primary income 23270
GS Goods and services 12162
D1 Primary income: compensation of employees 11489
CKA Current plus capital account (balance = net lending (+) / net borrowing (-)) 11458
D4P__F Primary income: investment income 11366
D4P__O__F Primary income: investment income; other investment 11271
D4P__D__F Primary income: investment income; direct investment 11174
D4P__P__F Primary income: investment income; portfolio investment 11174
D4O Primary income: other primary income 11100
SD Services: travel 10491
SC Services: transport 10311
SE Services: construction 10311
SF Services: insurance and pension services 10311
SG Services: financial services 10311
SI Services: telecommunications, computer, and information services 10311
SL Services: government goods and services n.i.e. 10311
SA Services: manufacturing services on physical inputs owned by others 10287
SB Services: maintenance and repair services n.i.e. 10104
G1 General merchandise on a balance of payments basis 9478
G2 Net exports of goods under merchanting 5692
D4P__R__F Primary income: investment income; reserve assets 16

partner

Code 
ei_bpm6ca_q %>%
  left_join(partner, by = "partner") %>%
  group_by(partner, Partner) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
partner Partner Nobs
WRL_REST Rest of the world 299290
EXT_EU27_2020 Extra-EU27 (from 2020) 7952
EXT_EA21 Extra-euro area - 21 countries (from 2026) 6668
EXT_EA20 Extra-euro area - 20 countries (2023-2025) 4280

stk_flow

Code 
ei_bpm6ca_q %>%
  left_join(stk_flow, by = "stk_flow") %>%
  group_by(stk_flow, Stk_flow) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
stk_flow Stk_flow Nobs
BAL Balance 107346
CRE Credit 106920
DEB Debit 103924

geo

Code 
ei_bpm6ca_q %>%
  left_join(geo, by = "geo") %>%
  group_by(geo, Geo) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Geo)),
         Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

time

Code 
ei_bpm6ca_q %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  print_table_conditional

Net Exports

Table

Code 
ei_bpm6ca_q %>%
  filter(partner %in% c("WRL_REST"),
         bop_item == "CA",
         stk_flow == "BAL",
         time %in% c("1991Q3", "2001Q3", "2011Q3", "2021Q3")) %>%
  select_if(~ n_distinct(.) > 1) %>%
  mutate(values = round(values, 1)) %>%
  left_join(geo, by = "geo") %>%
  spread(time, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}