Chelem - chel202016718

Data

~/data/cepii/

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 .}