High-tech trade by high-tech group of products in million euro (from 2007, SITC Rev. 4)

Data - Eurostat

Author

François Geerolf

Info

Last observation: Annual: 2022 (N = 1,846)

First observation: Annual: 2007 (N = 1,836)

Last data update: 13 aoû 2026, 23:45. Last compile: 14 aoû 2026, 03:16

Structure

France, Germany, Italy

Exports - EXP

Code

htec_trd_group4 |>
  filter(partner == "WORLD",
         time == "2018",
         stk_flow == "EXP",
         geo %in% c("DE", "FR", "IT", "UK")) |>
  
  
  select(sitc06, Sitc06, Geo, values) |>
  spread(Geo, values) |>
  mutate(Sector = gsub(" ", "-", str_to_lower(Sitc06)),
         Sector = paste0('<img src="../../icon/sector/vsmall/', Sector, '.png" alt="Sector">')) |>
  select(Sector, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Imports - IMP

Code

htec_trd_group4 |>
  filter(partner == "WORLD",
         time == "2018",
         stk_flow == "IMP",
         geo %in% c("DE", "FR", "IT", "UK")) |>
  
  
  select(sitc06, Sitc06, Geo, values) |>
  spread(Geo, values) |>
  mutate(Sector = gsub(" ", "-", str_to_lower(Sitc06)),
         Sector = paste0('<img src="../../icon/sector/vsmall/', Sector, '.png" alt="Sector">')) |>
  select(Sector, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Balance - EXP-IMP

Code

htec_trd_group4 |>
  filter(partner == "WORLD",
         time == "2018",
         geo %in% c("DE", "FR", "IT", "UK", "EU27_2020")) |>
  
  
  select(sitc06, Sitc06, stk_flow, Geo, values) |>
  spread(stk_flow, values) |>
  mutate(values = EXP-IMP) |>
  select(-EXP, -IMP) |>
  spread(Geo, values) |>
  mutate(Sector = gsub(" ", "-", str_to_lower(Sitc06)),
         Sector = paste0('<img src="../../icon/sector/vsmall/', Sector, '.png" alt="Sector">')) |>
  select(Sector, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Exports high tech products

Values

Code

htec_trd_group4 |>
  filter(partner == "WORLD",
         geo %in% c("DE", "IT", "FR", "EU27_2020"),
         sitc06 == "TOT_HT") |>
  year_to_date() %>%
  
  select_if(~ n_distinct(.) > 1) |>
  mutate(Geo = ifelse(geo == "EU27_2020", "Europe", Geo)) |>
  select(date, stk_flow, Geo, values) |>
  spread(stk_flow, values) |>
  mutate(values = EXP-IMP) |>
  ggplot() + geom_line(aes(x = date, y = values, color = Geo)) + 
  theme_minimal()

% of GDP

Code

htec_trd_group4 |>
  filter(partner == "WORLD",
         geo %in% c("DE", "IT", "FR", "EU27_2020"),
         sitc06 == "TOT_HT") |>
  left_join(gdp, by = c("geo", "time")) |>
  mutate(values = values/gdp) |>
  year_to_date() %>%
  
  select_if(~ n_distinct(.) > 1) |>
  mutate(Geo = ifelse(geo == "EU27_2020", "Europe", Geo)) |>
  select(date, stk_flow, Geo, values) |>
  spread(stk_flow, values) |>
  mutate(values = EXP-IMP) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) + 
  theme_minimal() + xlab("") + ylab("Net Exports, High Tech Products (% of GDP)") +
  scale_color_identity() +
  scale_x_date(breaks = seq(1960, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) + add_flags +
  theme(legend.position = "none") +
  scale_y_continuous(breaks = 0.01*seq(-500, 200, 0.5),
                     labels = percent_format(accuracy = .1))

France: Net Exports by High-Tech Category

Since 2007

Code

htec_trd_group4 |>
  filter(partner == "WORLD",
         geo == "FR",
         sitc06 != "TOT_HT") |>
  year_to_date() |>
  select(date, sitc06, Sitc06, stk_flow, values) |>
  spread(stk_flow, values) |>
  mutate(values = (EXP - IMP)/1000) |>
  ggplot() + geom_line(aes(x = date, y = values, color = Sitc06)) +
  theme_minimal() +
  scale_x_date(breaks = as.Date(paste0(seq(2007, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Net exports, high-tech products (Bn€)") +
  geom_hline(yintercept = 0, linetype = "dashed", color = "black")

Latest Year by Country

Code

latest_yr <- htec_trd_group4 |>
  filter(partner == "WORLD",
         sitc06 == "TOT_HT",
         geo %in% c("DE", "FR", "IT", "ES", "NL", "PL", "EU27_2020"),
         !is.na(values)) |>
  summarise(m = max(time)) |>
  pull(m)

htec_trd_group4 |>
  filter(partner == "WORLD",
         sitc06 == "TOT_HT",
         geo %in% c("DE", "FR", "IT", "ES", "NL", "PL", "EU27_2020"),
         time == latest_yr) |>
  left_join(gdp, by = c("geo", "time")) |>
  select(Geo, stk_flow, values, gdp) |>
  spread(stk_flow, values) |>
  mutate(`Net exports (Bn€)` = round((EXP - IMP)/1000, 1),
         `Net exports (% GDP)` = scales::percent((EXP - IMP)/gdp, accuracy = 0.1)) |>
  select(Geo, `Net exports (Bn€)`, `Net exports (% GDP)`) |>
  arrange(-`Net exports (Bn€)`) |>
  print_table_conditional()

Geo	Net exports (Bn€)	Net exports (% GDP)
Germany	10.5	0.3%
France	5.0	0.2%
Netherlands	0.6	0.1%
European Union - 27 countries (from 2020)	-6.2	0.0%
Spain	-12.5	-0.9%
Italy	-14.4	-0.7%
Poland	-14.8	-2.2%