European Union and euro area balance of payments - quarterly data (BPM6)

Data - Eurostat

Author

François Geerolf

Info

source dataset .html .RData
eurostat bop_eu6_q 2025-08-27 2025-08-24

Data on europe

Code 
load_data("europe.RData")
europe %>%
  source_dataset_file_updates()
source dataset .html .RData
eurostat bop_gdp6_q 2025-08-27 2025-08-24
eurostat nama_10_a10 2025-08-27 2025-08-24
eurostat nama_10_a10_e 2025-08-27 2025-08-24
eurostat nama_10_gdp 2025-08-27 2025-08-24
eurostat nama_10_lp_ulc 2025-08-27 2025-08-24
eurostat namq_10_a10 2025-05-24 2025-08-24
eurostat namq_10_a10_e 2025-05-24 2025-08-24
eurostat namq_10_gdp 2025-08-27 2025-08-24
eurostat namq_10_lp_ulc 2025-08-27 2025-08-24
eurostat namq_10_pc 2025-08-27 2025-08-24
eurostat nasa_10_nf_tr 2025-08-27 2025-08-24
eurostat nasq_10_nf_tr 2025-08-27 2025-08-24
eurostat tipsii40 2025-08-27 2025-08-24

LAST_COMPILE

LAST_COMPILE
2025-08-26

Last

Code 
bop_eu6_q %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  head(1) %>%
  print_table_conditional()
time Nobs
2025Q2 209

Info

  • 2023-Q2. EU current account surplus €73.0 bn. pdf / html

  • 2022-Q2. EU current account deficit €37.4 bn. pdf

currency

Code 
bop_eu6_q %>%
  left_join(currency, by = "currency") %>%
  group_by(currency, Currency) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
currency Currency Nobs
MIO_EUR Million euro 876251

s_adj

Code 
bop_eu6_q %>%
  left_join(s_adj, by = "s_adj") %>%
  group_by(s_adj, S_adj) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
s_adj S_adj Nobs
NSA Unadjusted data (i.e. neither seasonally adjusted nor calendar adjusted data) 867680
SCA Seasonally and calendar adjusted data 8571

bop_item

Code 
bop_eu6_q %>%
  left_join(bop_item, by = "bop_item") %>%
  group_by(bop_item, Bop_item) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

sector10

Code 
bop_eu6_q %>%
  left_join(sector10, by = "sector10") %>%
  group_by(sector10, Sector10) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
sector10 Sector10 Nobs
S1 Total economy 577896
S13 General Government 58387
S1W Other sectors than General Government 42346
S121 Central Bank 32555
S12T Monetary Financial Institutions (MFI) other than central bank 27751
S1P Other sectors than MFIs and general government 26394
S12M Financial corporations other than MFIs 24019
S1V Non-financial corporations, households and non-profit institutions serving households 23455
S122 Deposit-taking corporations except the central bank 23075
S123 Money market funds 18742
S12Q Insurance corporations and pension funds 4392
S11 Non-financial corporations 4270
S12O Other financial institutions 4270
S12K Monetary financial institutions (MFI) 3087
S124 Non-MMF investment funds 2989
S1M Households and non-profit institutions serving households 2623

sectpart

Code 
bop_eu6_q %>%
  left_join(sectpart, by = "sectpart") %>%
  group_by(sectpart, Sectpart) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
sectpart Sectpart Nobs
S1 Total economy 868115
S1P Other sectors than MFIs and general government 1194
S123 Money market funds 1142
S12M Financial corporations other than MFIs 1115
S12T Monetary Financial Institutions (MFI) other than central bank 1058
S122 Deposit-taking corporations except the central bank 816
S1N Not sectorised 717
S1V Non-financial corporations, households and non-profit institutions serving households 654
S13 General Government 598
S121 Central Bank 597
S12K Monetary financial institutions (MFI) 245

stk_flow

Code 
bop_eu6_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
CRE Credit 206010
DEB Debit 181368
BAL Balance 160704
ASS Assets 139730
LIAB Liabilities 97973
NET Net 90248
NI Net FDI inward 109
NO Net FDI outward 109

partner

Code 
bop_eu6_q %>%
  left_join(partner, by = "partner") %>%
  group_by(partner, Partner) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Partner = ifelse(partner == "DE", "Germany", Partner)) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Partner)),
         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 .}

geo

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