Last observation: août 2026 (N = 346)
First observation: janv. 1980 (N = 42)
Last data update: 09 sept. 2026, 08:08
Last compile: 14 sept. 2026, 22:11
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() |>
add_flag_color("Geo") |>
ggplot() + geom_line(aes(x = date, y = values, color = color)) +
theme_minimal() + scale_color_identity() + add_flags +
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 | 102.1 |
| Italy | 100.5 |
| European Union - 27 countries (from 2020) | 98.2 |
| France | 98.1 |
| Germany | 94.1 |