7.601 - Compte du reste du monde (S2) - T_7601

Données - INSEE

Structure

Échanges de biens et services (% du PIB)

Code
`T_7601` |>
  filter(code %in% c("P6", "P7", "B11")) |>
  distinct(code, year, .keep_all = TRUE) |>
  left_join(pib, by = "year") |>
  ggplot() + theme_minimal() + xlab("") + ylab("% du PIB") +
  geom_hline(yintercept = 0, color = "grey60") +
  geom_line(aes(x = year, y = value / pib, color = label)) +
  scale_x_continuous(breaks = seq(1950, 2030, 10)) +
  scale_y_continuous(labels = percent_format(accuracy = 1)) +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 2))

Revenus de la propriété échangés avec l’étranger

Intérêts et dividendes versés au reste du monde et reçus de lui : les flux ont été multipliés par la mondialisation financière, mais le solde net reste faible.

Code
`T_7601` |>
  filter(code %in% c("D41", "D42")) |>
  mutate(sens = ifelse(line < 20, "Versés au reste du monde", "Reçus du reste du monde")) |>
  left_join(pib, by = "year") |>
  ggplot() + theme_minimal() + xlab("") + ylab("% du PIB") +
  geom_line(aes(x = year, y = value / pib, color = label, linetype = sens)) +
  scale_x_continuous(breaks = seq(1950, 2030, 10)) +
  scale_y_continuous(labels = percent_format(accuracy = 1)) +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 2), linetype = guide_legend(nrow = 2))

Capacité (+) ou besoin (−) de financement du reste du monde

Symétrique du solde extérieur de la France : positif quand la France emprunte au reste du monde.

Code
`T_7601` |>
  filter(code == "B9") |>
  distinct(year, .keep_all = TRUE) |>
  left_join(pib, by = "year") |>
  ggplot() + theme_minimal() + xlab("") + ylab("% du PIB") +
  geom_hline(yintercept = 0, color = "grey60") +
  geom_col(aes(x = year, y = value / pib), fill = "#2b6cb0") +
  scale_x_continuous(breaks = seq(1950, 2030, 10)) +
  scale_y_continuous(labels = percent_format(accuracy = 1))

Le compte en 2025

Code
`T_7601` |>
  filter(year == last_y) |>
  transmute(Ligne = line, Opération = label, Code = code, `Mds €` = round(value, 1)) |>
  print_table_conditional()