Current account - monthly data - ei_bpm6ca_m

Data - Eurostat

Author

Info

LAST_DOWNLOAD

Code

tibble(LAST_DOWNLOAD = as.Date(file.info("~/Library/Mobile\ Documents/com~apple~CloudDocs/website/data/eurostat/ei_bpm6ca_m.RData")$mtime)) %>%
  print_table_conditional()

LAST_DOWNLOAD
2024-11-05

LAST_COMPILE

LAST_COMPILE
2024-11-05

Last

Code

ei_bpm6ca_m %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  head(1) %>%
  print_table_conditional()

time	Nobs
2024M08	1044

bop_item

Code

ei_bpm6ca_m %>%
  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
CA	Current account	21585
G	Goods	21413
IN1	Primary income	21413
S	Services	21413
IN2	Secondary income	21405
GS	Goods and services	21305
CKA	Current plus capital account (balance = Net lending (+) / net borrowing (-))	21281
D4P__O__F	Primary income: Investment income; Other investment	21153
D1	Primary income: Compensation of employees	21013
D4O	Primary income: Other primary income	21013
D4P__D__F	Primary income: Investment income; Direct investment	21013
D4P__F	Primary income: Investment income	21013
D4P__P__F	Primary income: Investment income; Portfolio investment	21013
D4P__R__F	Primary income: Investment income; Reserve assets	296

partner

Code

ei_bpm6ca_m %>%
  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	258674
EXT_EU27_2020	Extra-EU27 (from 2020)	7800
EXT_EU28	Extra-EU28 (2013-2020)	5655
EXT_EA20	Extra-euro area - 20 countries (from 2023)	4200

stk_flow

Code

ei_bpm6ca_m %>%
  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	92353
CRE	Credit	92005
DEB	Debit	91971

geo

Code

ei_bpm6ca_m %>%
  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_m %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  print_table_conditional

Net Exports

Table

Code

ei_bpm6ca_m %>%
  filter(partner %in% c("WRL_REST"),
         bop_item == "CA",
         stk_flow == "BAL",
         time %in% c("1991M01", "2001M01", "2011M01", "2021M01")) %>%
  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 .}