International investment position

Data - OECD

Author

Info

source	dataset	.html	.RData
oecd	IIP	2024-10-15	2024-10-15

Last

obsTime	Nobs
2024-Q2	3801

REF_AREA

Code

IIP %>%
  left_join(REF_AREA, by = "REF_AREA") %>%
  group_by(REF_AREA, Ref_area) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

ACCOUNTING_ENTRY

Code

IIP %>%
  left_join(ACCOUNTING_ENTRY, by = "ACCOUNTING_ENTRY") %>%
  group_by(ACCOUNTING_ENTRY, Accounting_entry) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

ACCOUNTING_ENTRY	Accounting_entry	Nobs
N	Net (assets minus liabilities)	166672
A	Assets (or net acquisition of assets)	165583
L	Liabilities (or net incurrence of liabilities)	155809

FS_ENTRY

Code

IIP %>%
  left_join(FS_ENTRY, by = "FS_ENTRY") %>%
  group_by(FS_ENTRY, Fs_entry) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

FS_ENTRY	Fs_entry	Nobs
LE	Closing balance sheet/Positions/Stocks	445284
K7B	Revaluations due to other price changes	10776
K7A	Revaluations due to exchange rate changes	10677
K	Changes in positions other than transactions	10676
KA	Other changes in the volume of Assets/Liabilities	10651

FREQ

Code

IIP %>%
  left_join(FREQ, by = "FREQ") %>%
  group_by(FREQ, Freq) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

FREQ	Freq	Nobs
Q	Quarterly	387962
A	Annual	100102

MEASURE

Code

IIP %>%
  left_join(MEASURE, by = "MEASURE") %>%
  group_by(MEASURE, Measure) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

MEASURE	Measure	Nobs
FA	Financial account	71581
FA_D_F	Direct investment	28623
FA_O_F	Other investment	28563
FA_P_F	Portfolio investment	28345
FA_P_F3	Portfolio investment; debt securities	28157
FA_P_F5	Portfolio investment; equity and investment fund shares/units	28157
FA_O_F4	Other investment; loans	27201
FA_O_F2	Other investment; currency and deposits	27058
FA_D_F5	Direct investment; equity and investment fund shares/units	27036
FA_D_FL	Direct investment; debt instruments (FDI)	27036
FA_O_F81	Other investment; trade credits and advances	25699
FA_F_F7	Financial derivatives	25223
FA_O_F89	Other investment; other accounts receivable/payable, excluding trade credits and advances	24792
FA_O_F12	Other investment; SDRs	24553
FA_O_F519	Other investment; other equity	22198
FA_O_F6	Other investment; insurance, pension and standardised guarantee schemes	21825
FA_R_F_S121	Reserve assets	18902
FA_O_F4_S122	Other investment; loans; deposit taking corporations, except the central bank	3115

Euro area

All

Code

IIP %>%
  filter(REF_AREA %in% c("EA19")) %>%
  left_join(MEASURE, by = "MEASURE") %>%
  group_by(MEASURE, Measure) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs)

# # A tibble: 17 × 3
# # Groups:   MEASURE [17]
#    MEASURE     Measure                                                      Nobs
#    <chr>       <chr>                                                       <int>
#  1 FA          Financial account                                            1512
#  2 FA_D_F      Direct investment                                             432
#  3 FA_D_F5     Direct investment; equity and investment fund shares/units    432
#  4 FA_D_FL     Direct investment; debt instruments (FDI)                     432
#  5 FA_F_F7     Financial derivatives                                         432
#  6 FA_O_F      Other investment                                              432
#  7 FA_O_F12    Other investment; SDRs                                        432
#  8 FA_O_F2     Other investment; currency and deposits                       432
#  9 FA_O_F4     Other investment; loans                                       432
# 10 FA_O_F519   Other investment; other equity                                432
# 11 FA_O_F6     Other investment; insurance, pension and standardised guar…   432
# 12 FA_O_F81    Other investment; trade credits and advances                  432
# 13 FA_O_F89    Other investment; other accounts receivable/payable, exclu…   432
# 14 FA_P_F      Portfolio investment                                          432
# 15 FA_P_F3     Portfolio investment; debt securities                         432
# 16 FA_P_F5     Portfolio investment; equity and investment fund shares/un…   432
# 17 FA_R_F_S121 Reserve assets                                                288

FA

Code

IIP %>%
  filter(REF_AREA %in% c("EA19"),
         MEASURE == "FA") %>%
  left_join(FS_ENTRY, by = "FS_ENTRY") %>%
  group_by(FS_ENTRY, Fs_entry) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs)

# # A tibble: 5 × 3
# # Groups:   FS_ENTRY [5]
#   FS_ENTRY Fs_entry                                           Nobs
#   <chr>    <chr>                                             <int>
# 1 LE       Closing balance sheet/Positions/Stocks              432
# 2 K        Changes in positions other than transactions        270
# 3 K7A      Revaluations due to exchange rate changes           270
# 4 K7B      Revaluations due to other price changes             270
# 5 KA       Other changes in the volume of Assets/Liabilities   270

FA, LE

Code

IIP %>%
  filter(REF_AREA %in% c("EA19"),
         MEASURE == "FA",
         FS_ENTRY == "LE") %>%
  left_join(FS_ENTRY, by = "FS_ENTRY") %>%
  group_by(FS_ENTRY, Fs_entry) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs)

# # A tibble: 1 × 3
# # Groups:   FS_ENTRY [1]
#   FS_ENTRY Fs_entry                                Nobs
#   <chr>    <chr>                                  <int>
# 1 LE       Closing balance sheet/Positions/Stocks   432

Current account

EU vs. US

All

Code

IIP %>%
  filter(ACCOUNTING_ENTRY == "N",
         REF_AREA %in% c("USA", "EA19"),
         FS_ENTRY == "LE",
         MEASURE == "FA",
         FREQ == "A",
         UNIT_MEASURE == "XDC") %>%
  year_to_date() %>%
  arrange(desc(date)) %>%
  select_if(~ n_distinct(.) > 1) %>%
  left_join(REF_AREA, by = "REF_AREA") %>%
  arrange(desc(date)) %>%
  mutate(Ref_area = ifelse(REF_AREA == "EA19", "Europe", Ref_area)) %>%
  left_join(colors, by = c("Ref_area" = "country")) %>%
  mutate(color = ifelse(REF_AREA == "USA", color2, color)) %>%
  #filter(date <= as.Date("2021-01-01")) %>%
  ggplot(.) + geom_line(aes(x = date, y = obsValue, color = color)) + 
  theme_minimal() + xlab("") + ylab("Current Account, % of GDP") +
  scale_color_identity() + add_2flags +
  scale_x_date(breaks = seq(1920, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  geom_hline(yintercept = 0, linetype = "dashed", color = "black")