EU27 (from 2020) trade by SITC product group - ext_st_eu27_2020sitc

Data - Eurostat

Author

François Geerolf

Info

Last observation: Monthly: 2026M05 (N = 21,095)

First observation: Monthly: 2002M01 (N = 12,502)

Last data update: 23 jul 2026, 22:41. Last compile: 24 jul 2026, 01:39

Structure

Trade Balance by Partner

US, China, UK, Japan

Code

ext_st_eu27_2020sitc %>%
  filter(stk_flow == "BAL_RT",
         indic_et == "TRD_VAL",
         sitc06 == "TOTAL",
         partner %in% c("US", "CN_X_HK", "UK", "JP")) %>%
  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(2002, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.2, 0.2),
        legend.title = element_blank()) +
  xlab("") + ylab("EU27 trade balance (Bn€)") +
  geom_hline(yintercept = 0, linetype = "dashed", color = "black")

Extra-EU27 Exports by Product Group

Machinery, Chemicals, Manufactured Goods, Mineral Fuels

Code

ext_st_eu27_2020sitc %>%
  filter(stk_flow == "EXP",
         indic_et == "TRD_VAL",
         partner == "EXT_EU27_2020",
         sitc06 %in% c("SITC7", "SITC6", "SITC5", "SITC3")) %>%
  month_to_date %>%
  mutate(values = values/1000) %>%
  ggplot + geom_line(aes(x = date, y = values, color = Sitc06)) +
  theme_minimal() +
  scale_x_date(breaks = as.Date(paste0(seq(2002, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = "right") +
  xlab("") + ylab("EU27 exports to Extra-EU27 (Bn€)")

Latest Month by Partner

Code

latest_m <- ext_st_eu27_2020sitc %>%
  filter(stk_flow == "BAL_RT",
         indic_et == "TRD_VAL",
         sitc06 == "TOTAL",
         partner == "EXT_EU27_2020",
         !is.na(values)) %>%
  summarise(m = max(time)) %>%
  pull(m)

ext_st_eu27_2020sitc %>%
  filter(stk_flow == "BAL_RT",
         indic_et == "TRD_VAL",
         sitc06 == "TOTAL",
         partner %in% c("EXT_EU27_2020", "US", "CN_X_HK", "UK", "JP"),
         time == latest_m) %>%
  mutate(values = values/1000) %>%
  select(partner, Partner, values) %>%
  arrange(values) %>%
  print_table_conditional()

partner	Partner	values
CN_X_HK	China except Hong Kong	-30.8520
EXT_EU27_2020	Extra-EU27 (from 2020)	-12.0784
JP	Japan	-0.1210
US	United States	7.8387
UK	United Kingdom	15.3838