Balance of payments of the EU institutions - monthly data (BPM6) - bop_euins6_m

Data - Eurostat

Structure

European Commission

Current Account Balance: World vs. Extra-EU

Code
bop_euins6_m |>
  filter(geo == "COMM",
         bop_item == "CA",
         stk_flow == "BAL",
         partner %in% c("WORLD", "EXT_EU27_2020"),
         sector10 == "S1",
         sectpart == "S1") |>
  month_to_date() |>
  mutate(values = values/1000) |>
  ggplot() + geom_line(aes(x = date, y = values, color = Partner)) +
  theme_minimal() +
  scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.15),
        legend.title = element_blank()) +
  xlab("") + ylab("Current account balance (Bn€)") +
  geom_hline(yintercept = 0, linetype = "dashed", color = "black")

Current Account, Goods, Goods & Services (World)

Code
bop_euins6_m |>
  filter(geo == "COMM",
         bop_item %in% c("CA", "GS", "G"),
         stk_flow == "BAL",
         partner == "WORLD",
         sector10 == "S1",
         sectpart == "S1") |>
  month_to_date() |>
  mutate(values = values/1000) |>
  ggplot() + geom_line(aes(x = date, y = values, color = Bop_item)) +
  theme_minimal() +
  scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.2, 0.15),
        legend.title = element_blank()) +
  xlab("") + ylab("Balance (Bn€)") +
  geom_hline(yintercept = 0, linetype = "dashed", color = "black")

Latest Month by Item

Code
latest_m <- bop_euins6_m |>
  filter(bop_item == "CA",
         stk_flow == "BAL",
         partner == "WORLD",
         geo == "COMM",
         !is.na(values)) |>
  summarise(m = max(time)) |>
  pull(m)

bop_euins6_m |>
  filter(geo == "COMM",
         stk_flow == "BAL",
         partner %in% c("WORLD", "EXT_EU27_2020"),
         sector10 == "S1",
         sectpart == "S1",
         bop_item %in% c("CA", "KA", "FA", "G", "S", "GS", "IN1", "IN2", "D1", "D2", "D4"),
         time == latest_m) |>
  mutate(values = values/1000) |>
  select(bop_item, Bop_item, Partner, values) |>
  spread(Partner, values) |>
  print_table_conditional()
bop_item Bop_item All countries of the world Extra-EU27 (from 2020)
CA Current account 10824866.46 3006894.362
D1 Primary income: compensation of employees -586726.20 -30809.609
D2 Primary income: taxes on production and imports 2651190.97 NA
D4 Property income -828617.84 -315547.509
G Goods -27924.83 -11138.962
GS Goods and services -1377087.36 -45998.269
IN1 Primary income -1409198.83 -346399.760
IN2 Secondary income 13611152.65 3399292.391
KA Capital account -4945087.79 -1431.807
S Services -1349162.53 -34859.307