Chelem - chel202016718

Données - CEPII

Last observation: 2023 (N = 234)

First observation: 1960 (N = 234)

Last data update: 01 août 2026, 21:29

Last compile: 15 oct. 2026, 22:28

Bilateral

Germany - Exports

chel202016718 |>
  filter(k == "TT",
         i == "DEU",
         t == 2017) |>
  mutate(date = paste0(t, "-01-01") |> as.Date()) |>
  left_join(gdp_germany_usd, by = "date") |>
  rename(iso3c = j) |>
  left_join(iso3c, by = "iso3c") |>
  select(iso3c, Iso3c, X = v, GDP) |>
  arrange(-X) %>%
  mutate(X_GDP = round(100*X/GDP, 1)  |> paste0(" %"),
         X = round(X/1000) %>% paste0("$ ", ., " Bn")) |>
  select(-GDP) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Germany - Imports

chel202016718 |>
  filter(k == "TT",
         j == "DEU",
         t == 2017) |>
  mutate(date = paste0(t, "-01-01") |> as.Date()) |>
  left_join(gdp_germany_usd, by = "date") |>
  rename(iso3c = i) |>
  left_join(iso3c, by = "iso3c") |>
  select(iso3c, Iso3c, M = v, GDP) |>
  arrange(-M) %>%
  mutate(M_GDP = round(100*M/GDP, 1)  |> paste0(" %"),
         M = round(M/1000) %>% paste0("$ ", ., " Bn")) |>
  select(-GDP) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

France - Exports

chel202016718 |>
  filter(k == "TT",
         i == "FRA",
         t == 2017) |>
  mutate(date = paste0(t, "-01-01") |> as.Date()) |>
  left_join(gdp_germany_usd, by = "date") |>
  rename(iso3c = j) |>
  left_join(iso3c, by = "iso3c") |>
  select(iso3c, Iso3c, X = v, GDP) |>
  arrange(-X) %>%
  mutate(X_GDP = round(100*X/GDP, 1)  |> paste0(" %"),
         X = round(X/1000) %>% paste0("$ ", ., " Bn")) |>
  select(-GDP) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

France - Imports

chel202016718 |>
  filter(k == "TT",
         j == "FRA",
         t == 2017) |>
  mutate(date = paste0(t, "-01-01") |> as.Date()) |>
  left_join(gdp_germany_usd, by = "date") |>
  rename(iso3c = i) |>
  left_join(iso3c, by = "iso3c") |>
  select(iso3c, Iso3c, M = v, GDP) |>
  arrange(-M) %>%
  mutate(M_GDP = round(100*M/GDP, 1)  |> paste0(" %"),
         M = round(M/1000) %>% paste0("$ ", ., " Bn")) |>
  select(-GDP) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}