Business surveys - NACE Rev. 2 activity - Industry - monthly data - ei_bsin_m_r2

Data - Eurostat

Info

Last observation: 2026M07 (N = 512)

First observation: 1980M01 (N = 106)

Last data update: 14 aoû 2026, 22:27. Last compile: 18 aoû 2026, 00:30

Structure

freq

indic

s_adj

unit

geo

France, Germany, Italy

BS-IPE - Production expectations over the next 3 months

All

ei_bsin_m_r2 |>
  filter(indic == "BS-IPE",
         geo %in% c("FR", "DE", "IT"),
         s_adj == "NSA") |>
  select(geo, Geo, time, values) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Industrial confidence indicator") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags + theme(legend.position = "none") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-2000, 2000, 5))

1995-

ei_bsin_m_r2 |>
  filter(indic == "BS-IPE",
         geo %in% c("FR", "DE", "IT"),
         s_adj == "NSA") |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Industrial confidence indicator") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags + theme(legend.position = "none") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-2000, 2000, 5))

2000-

ei_bsin_m_r2 |>
  filter(indic == "BS-IPE",
         geo %in% c("FR", "DE", "IT"),
         s_adj == "NSA") |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  filter(date >= as.Date("2000-01-01")) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Industrial confidence indicator") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags + theme(legend.position = "none") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-2000, 2000, 5))

2015-

ei_bsin_m_r2 |>
  filter(indic == "BS-IPE",
         geo %in% c("FR", "DE", "IT"),
         s_adj == "NSA") |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  filter(date >= as.Date("2015-01-01")) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Industrial confidence indicator") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags + theme(legend.position = "none") +
  scale_x_date(breaks = seq(1920, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-2000, 2000, 5))

BS-ICI - Industrial confidence indicator

All

ei_bsin_m_r2 |>
  filter(indic == "BS-ICI",
         geo %in% c("FR", "DE", "IT"),
         s_adj == "NSA") |>
  select(geo, Geo, time, values) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Industrial confidence indicator") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags + theme(legend.position = "none") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-2000, 2000, 5))

1995-

ei_bsin_m_r2 |>
  filter(indic == "BS-ICI",
         geo %in% c("FR", "DE", "IT"),
         s_adj == "NSA") |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  filter(date >= as.Date("1995-01-01")) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Industrial confidence indicator") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags + theme(legend.position = "none") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-2000, 2000, 5))

2000-

ei_bsin_m_r2 |>
  filter(indic == "BS-ICI",
         geo %in% c("FR", "DE", "IT"),
         s_adj == "NSA") |>
  select(geo, Geo, time, values) |>
  group_by(geo) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  filter(date >= as.Date("2000-01-01")) |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Industrial confidence indicator") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags + theme(legend.position = "none") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-2000, 2000, 5))

BS-IOB - Assessment of order books levels

All

ei_bsin_m_r2 |>
  filter(indic == "BS-IOB",
         geo %in% c("FR", "DE", "IT"),
         s_adj == "NSA") |>
  select(geo, Geo, time, values) |>
  
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) |>
  month_to_date() |>
  left_join(colors, by = c("Geo" = "country")) |>
  ggplot() + ylab("Assessment of order books levels") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + add_flags + theme(legend.position = "none") +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-2000, 2000, 10))