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 2024-11-01 2024-10-08

Data on europe

Code 
load_data("europe.RData")
europe %>%
  source_dataset_file_updates()
source dataset .html .RData
eurostat bop_gdp6_q 2024-11-01 2024-10-09
eurostat nama_10_a10 2024-11-01 2024-10-08
eurostat nama_10_a10_e 2024-11-01 2024-11-05
eurostat nama_10_gdp 2024-11-01 2024-10-08
eurostat nama_10_lp_ulc 2024-11-01 2024-10-08
eurostat namq_10_a10 2024-11-01 2024-11-05
eurostat namq_10_a10_e 2024-11-01 2024-10-08
eurostat namq_10_gdp 2024-11-01 2024-10-08
eurostat namq_10_lp_ulc 2024-11-04 2024-11-04
eurostat namq_10_pc 2024-11-01 2024-10-08
eurostat nasa_10_nf_tr 2024-11-01 2024-10-08
eurostat nasq_10_nf_tr 2024-11-01 2024-10-09
eurostat tipsii40 2024-11-01 2024-11-01

LAST_COMPILE

LAST_COMPILE
2024-11-05

Last

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

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 841208

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) 832829
SCA Seasonally and calendar adjusted data 8379

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 556159
S13 General Government 56651
S1W Other sectors than General Government 41268
S121 Central Bank 31158
S12T Monetary Financial Institutions (MFI) other than central bank 26473
S1P Other sectors than MFIs and general government 25302
S12M Financial corporations other than MFIs 22871
S1V Non-financial corporations, households and non-profit institutions serving households 22343
S122 Deposit-taking corporations except the central bank 21971
S123 Money market funds 17770
S12Q Insurance corporations and pension funds 3889
S11 Non-financial corporations 3780
S12O Other financial institutions 3780
S12K Monetary financial institutions (MFI) 2959
S124 Non-MMF investment funds 2613
S1M Households and non-profit institutions serving households 2221

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 833420
S1P Other sectors than MFIs and general government 1153
S12M Financial corporations other than MFIs 1075
S123 Money market funds 1032
S12T Monetary Financial Institutions (MFI) other than central bank 1022
S122 Deposit-taking corporations except the central bank 788
S1N Not sectorised 697
S1V Non-financial corporations, households and non-profit institutions serving households 630
S121 Central Bank 577
S13 General Government 577
S12K Monetary financial institutions (MFI) 237

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 198874
DEB Debit 175247
BAL Balance 154244
ASS Assets 133147
LIAB Liabilities 93010
NET Net 86476
NI Net FDI inward 105
NO Net FDI outward 105

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