Turnover and volume of sales in wholesale and retail trade - quarterly data - sts_setu_q

Data - Eurostat

Author

François Geerolf

Info

Last observation: 2026Q2 (N = 1254)

First observation: 1994Q1 (N = 69)

Last data update: 15 aoû 2026, 23:11. Last compile: 18 aoû 2026, 04:25

Structure

France: Turnover by Sector

Code

sts_setu_q |>
  filter(geo == "FR",
         nace_r2 %in% c("H", "I", "J"),
         indic_bt == "NETTUR",
         unit == "I15",
         s_adj == "SCA") |>
  quarter_to_date() |>

  ggplot() + geom_line(aes(x = date, y = values, color = Nace_r2)) +
  theme_minimal() +
  scale_x_date(breaks = as.Date(paste0(seq(1995, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = "right") +
  xlab("") + ylab("Turnover Index (2015=100)")

Latest Quarter by Country

Code

latest_q <- sts_setu_q |>
  filter(nace_r2 == "G-N_STS",
         indic_bt == "NETTUR",
         unit == "I15",
         s_adj == "SCA",
         !is.na(values)) |>
  summarise(m = max(time)) |>
  pull(m)

sts_setu_q |>
  filter(nace_r2 == "G-N_STS",
         indic_bt == "NETTUR",
         unit == "I15",
         s_adj == "SCA",
         time == latest_q) |>
  mutate(values = round(values, 1)) |>
  select(Geo, values) |>
  arrange(-values) |>
  print_table_conditional()

Geo	values
Türkiye	1598.2
Spain	148.4
Portugal	138.5
Ireland	NA

Industrial Production

France, Germany, Italy

All

Code

sts_setu_q |>
  filter(nace_r2 == "G-N_STS",
         unit == "I15",
         indic_bt == "NETTUR",
         geo %in% c("FR", "DE", "IT"),
         s_adj == "SCA") |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>

  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  quarter_to_date() |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Turnover Index (Services, 2015=100)") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  add_flags + 
  theme(legend.position = "none") +
  scale_y_log10(breaks = seq(-60, 300, 10))

2010-

Code

sts_setu_q |>
  filter(nace_r2 == "G-N_STS",
         unit == "I15",
         indic_bt == "NETTUR",
         geo %in% c("FR", "DE", "IT"),
         s_adj == "SCA") |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>

  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  quarter_to_date() |>
  filter(date >= as.Date("2010-01-01")) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Turnover Index (Services, 2015=100)") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags +
  scale_color_manual(values = c("#0055a4", "#000000", "#008c45")) +
  scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  add_flags + 
  theme(legend.position = "none") +
  scale_y_log10(breaks = seq(-60, 300, 10))