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-02-01 2025-05-18

Data on europe

Code 
load_data("europe.RData")
europe %>%
  source_dataset_file_updates()
source dataset .html .RData
eurostat bop_gdp6_q 2025-02-01 2025-05-18
eurostat nama_10_a10 2025-02-01 2025-05-18
eurostat nama_10_a10_e 2025-02-01 2025-05-18
eurostat nama_10_gdp 2025-02-01 2025-05-18
eurostat nama_10_lp_ulc 2025-02-01 2025-05-18
eurostat namq_10_a10 2025-03-04 2025-05-18
eurostat namq_10_a10_e 2025-03-13 2025-05-18
eurostat namq_10_gdp 2025-02-04 2025-05-18
eurostat namq_10_lp_ulc 2025-02-01 2025-05-18
eurostat namq_10_pc 2025-02-01 2025-05-18
eurostat nasa_10_nf_tr 2025-04-23 2025-05-18
eurostat nasq_10_nf_tr 2025-02-12 2025-05-18
eurostat tipsii40 2025-01-26 2025-05-18

LAST_COMPILE

LAST_COMPILE
2025-05-18

Last

Code 
bop_eu6_q %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  head(1) %>%
  print_table_conditional()
time Nobs
2024Q4 6720

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 869322

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) 860817
SCA Seasonally and calendar adjusted data 8505

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 573507
S13 General Government 58014
S1W Other sectors than General Government 42105
S121 Central Bank 32274
S12T Monetary Financial Institutions (MFI) other than central bank 27517
S1P Other sectors than MFIs and general government 26160
S12M Financial corporations other than MFIs 23783
S1V Non-financial corporations, households and non-profit institutions serving households 23228
S122 Deposit-taking corporations except the central bank 22865
S123 Money market funds 18565
S12Q Insurance corporations and pension funds 4320
S11 Non-financial corporations 4200
S12O Other financial institutions 4200
S12K Monetary financial institutions (MFI) 3064
S124 Non-MMF investment funds 2940
S1M Households and non-profit institutions serving households 2580

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 861257
S1P Other sectors than MFIs and general government 1183
S123 Money market funds 1132
S12M Financial corporations other than MFIs 1105
S12T Monetary Financial Institutions (MFI) other than central bank 1049
S122 Deposit-taking corporations except the central bank 809
S1N Not sectorised 712
S1V Non-financial corporations, households and non-profit institutions serving households 648
S121 Central Bank 592
S13 General Government 592
S12K Monetary financial institutions (MFI) 243

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 204498
DEB Debit 180066
BAL Balance 159480
ASS Assets 138448
LIAB Liabilities 97124
NET Net 89490
NI Net FDI inward 108
NO Net FDI outward 108

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