Country level - volume (in TEUs) of containers handled in main ports, by loading status - mar_mg_am_cvh

Data - Eurostat

Author

François Geerolf

Last observation: 2024 (N = 103)

First observation: 1997 (N = 14)

Last data update: 15 juil. 2026, 03:20

Last compile: 03 sept. 2026, 23:45

Structure

Conteneurs

Table

Code

mar_mg_am_cvh |>
  filter(unit == "THS_TEU",
         time == "2019") |>
  select( -unit, -time) |>
  
  
  select(-loadstat) |>
  spread(Loadstat, values) |>
  arrange(`Total loaded and empty`) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Rep_mar))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Pleins + Vides

Linear

Code

mar_mg_am_cvh |>
  filter(loadstat == "TOTAL",
         unit == "THS_TEU",
         rep_mar %in% c("NL", "FR", "IT", "DE", "ES", "UK", "BE", "EL")) |>
  select(-loadstat, -unit) |>
  
  year_to_date() |>
  add_flag_color("Rep_mar") |>
  rename(Geo = Rep_mar) |>
  mutate(values = values / 10^3) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal() + xlab("") + ylab("Mille équivalent vingt pieds (EVP)") + add_flags +
  scale_x_date(breaks = seq(1940, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 20, 2))

Base-100

Code

mar_mg_am_cvh |>
  filter(loadstat == "TOTAL",
         unit == "THS_TEU",
         rep_mar %in% c("NL", "FR", "IT", "DE", "ES", "UK", "BE", "EL")) |>
  select(-loadstat, -unit) |>
  
  year_to_date() |>
  filter(date >= as.Date("2000-01-01")) |>
  add_flag_color("Rep_mar") |>
  rename(Geo = Rep_mar) |>
  group_by(Geo) |>
  arrange(date) |>
  mutate(values = 100*values / values[1]) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal() + xlab("") + ylab("Mille équivalent vingt pieds (EVP)") + add_flags +
  scale_x_date(breaks = seq(1940, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(50,1000, 50))

Log

Code

mar_mg_am_cvh |>
  filter(loadstat == "TOTAL",
         unit == "THS_TEU",
         rep_mar %in% c("NL", "FR", "IT", "DE", "ES", "UK", "BE", "EL")) |>
  select(-loadstat, -unit) |>
  
  year_to_date() |>
  add_flag_color("Rep_mar") |>
  rename(Geo = Rep_mar) |>
  mutate(values = values / 10^3) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal() + xlab("") + ylab("") + add_flags +
  scale_x_date(breaks = seq(1940, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 20, 2))

Vides

Code

mar_mg_am_cvh |>
  filter(loadstat == "EMPTY",
         unit == "THS_TEU",
         rep_mar %in% c("NL", "FR", "IT", "DE", "ES", "UK", "BE", "EL")) |>
  select(-loadstat, -unit) |>
  
  year_to_date() |>
  add_flag_color("Rep_mar") |>
  rename(Geo = Rep_mar) |>
  mutate(values = values / 10^3) |>
  ggplot() + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal() + xlab("") + ylab("") + add_flags +
  scale_x_date(breaks = seq(1940, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 20, 1))