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

Name: Business surveys - NACE Rev. 2 activity - Industry - monthly data
Creator: François Geerolf
License: https://creativecommons.org/licenses/by/4.0/

Data - Eurostat

Author

François Geerolf

Structure

France, Germany, Italy

BS-IPE - Production expectations over the next 3 months

All

Code

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() |>
  add_flag_color("Geo") |>
  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-

Code

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")) |>
  add_flag_color("Geo") |>
  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-

Code

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")) |>
  add_flag_color("Geo") |>
  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-

Code

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")) |>
  add_flag_color("Geo") |>
  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

Code

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() |>
  add_flag_color("Geo") |>
  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-

Code

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")) |>
  add_flag_color("Geo") |>
  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-

Code

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")) |>
  add_flag_color("Geo") |>
  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

Code

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() |>
  add_flag_color("Geo") |>
  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))

Euro-area slack

Industry assessment of order-book levels, euro area

Code

ei_bsin_m_r2 |>
  filter(indic == "BS-IOB", geo == "EA20", s_adj == "SA") |>
  month_to_date() |>
  filter(!is.na(values), date >= as.Date("2000-01-01")) |>
  ggplot() + theme_minimal() + xlab("") +
  ylab("Assessment of order-book levels (balance, s.a.)") +
  geom_hline(yintercept = 0, linewidth = 0.3) +
  geom_line(aes(x = date, y = values)) +
  scale_x_date(breaks = as.Date(paste0(seq(2000, 2100, 3), "-01-01")),
               labels = date_format("%Y"))

Related Data

Is there slack in the Euro area?

source	dataset	Title	Updated
ameco	AVGDGP	Gap between actual and potential gross domestic product at 2015 reference levels - AVGDGP	2026-08-02
ameco	ZNAWRU	Non-accelerating wage rate of unemployment - ZNAWRU	2026-08-02
ecb	BLS	Bank Lending Survey Statistics - BLS	2026-09-12
eurostat	edat_lfse_18	Participation rate of young persons in education and training by labour status (incl. NEET rates) - edat_lfse_18	2026-09-11
eurostat	ei_bsin_m_r2	Business surveys - NACE Rev. 2 activity - Industry - monthly data - ei_bsin_m_r2	2026-09-09
eurostat	lfsa_urgaed	Unemployment rates by sex, age and educational attainment level (%) - lfsa_urgaed	2026-09-11
eurostat	lfsi_sla_q	Labour market transitions - quarterly data - lfsi_sla_q	2026-09-11
eurostat	migr_emi2	Emigration by age and sex - migr_emi2	2026-09-09
eurostat	tipslm80	Youth unemployment rate - % of active population aged 15-24 - tipslm80	2026-09-11
eurostat	une_rt_m	Unemployment by sex and age – monthly data - une_rt_m	2026-09-09
oecd	EO_GAP	Output gap as a percentage of potential GDP - GAP - EO - EO_GAP	2026-08-02
oecd	INVPT_I	Incidence of involuntary part time workers - INVPT_I	2026-08-02
oecd	QNA_EXPENDITURE_CAPITA	Quarterly National Accounts, GDP Per Capita - QNA_EXPENDITURE_CAPITA	2026-09-12