Business surveys - NACE Rev. 2 activity - Sentiment indicators - monthly data - ei_bssi_m_r2
Data - Eurostat
Info
Last observation: Annual: 2026M06 (N = 346)
First observation: Annual: 1980M01 (N = 42)
Last data update: 23 jul 2026, 23:25. Last compile: 24 jul 2026, 01:23
Structure
Economic Sentiment Indicator
France, Germany, Italy, Spain (seasonally adjusted)
Code
ei_bssi_m_r2 %>%
filter(geo %in% c("FR", "DE", "IT", "ES"),
indic == "BS-ESI-I",
s_adj == "SA") %>%
month_to_date %>%
left_join(colors, by = c("Geo" = "country")) %>%
ggplot + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + scale_color_identity() + add_4flags +
scale_x_date(breaks = as.Date(paste0(seq(1980, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Economic Sentiment Indicator") +
geom_hline(yintercept = 100, linetype = "dashed", color = "black")
France: Confidence Indicators by Sector
Since 2000 (seasonally adjusted)
Code
ei_bssi_m_r2 %>%
filter(geo == "FR",
indic %in% c("BS-CCI-BAL", "BS-CSMCI-BAL", "BS-ICI-BAL", "BS-RCI-BAL", "BS-SCI-BAL"),
s_adj == "SA") %>%
month_to_date %>%
filter(date >= as.Date("2000-01-01")) %>%
ggplot + geom_line(aes(x = date, y = values, color = Indic)) +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1980, 2100, 2), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Confidence indicator (balance, pp)") +
geom_hline(yintercept = 0, linetype = "dashed", color = "black")
Latest Month by Country
Code
latest_m <- ei_bssi_m_r2 %>%
filter(indic == "BS-ESI-I",
s_adj == "SA",
geo %in% c("FR", "DE", "IT", "ES", "EA20", "EU27_2020"),
!is.na(values)) %>%
summarise(m = max(time)) %>%
pull(m)
ei_bssi_m_r2 %>%
filter(indic == "BS-ESI-I",
s_adj == "SA",
geo %in% c("FR", "DE", "IT", "ES", "EA20", "EU27_2020"),
time == latest_m) %>%
select(Geo, values) %>%
arrange(-values) %>%
print_table_conditional()| Geo | values |
|---|---|
| Spain | 103.3 |
| Italy | 99.1 |
| European Union - 27 countries (from 2020) | 95.1 |
| France | 92.5 |
| Germany | 91.5 |