Last observation: août 2026 (N = 420)
First observation: févr. 1984 (N = 8)
Last data update: 09 sept. 2026, 07:54
Last compile: 16 sept. 2026, 19:10
ei_bsrt_m_r2 |>
filter(geo %in% c("FR", "DE", "IT", "ES"),
indic == "BS-RCI",
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("Retail confidence indicator (balance, SA)") +
geom_hline(yintercept = 0, linetype = "dashed", color = "black")
ei_bsrt_m_r2 |>
filter(geo == "FR",
indic %in% c("BS-RCI", "BS-REBS", "BS-ROP", "BS-REM"),
s_adj == "SA") |>
month_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Indic)) +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(1980, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = "right", legend.title = element_blank()) +
xlab("") + ylab("Balance (SA)") +
geom_hline(yintercept = 0, linetype = "dashed", color = "black")
latest_m <- ei_bsrt_m_r2 |>
filter(indic == "BS-RCI",
s_adj == "SA",
!is.na(values)) |>
summarise(m = max(time)) |>
pull(m)
ei_bsrt_m_r2 |>
filter(indic == "BS-RCI",
s_adj == "SA",
time == latest_m) |>
select(Geo, values) |>
arrange(-values) |>
print_table_conditional()| Geo | values |
|---|---|
| Sweden | 31.8 |
| Slovenia | 20.5 |
| Finland | 16.8 |
| Denmark | 16.2 |
| Czechia | 15.9 |
| Greece | 15.4 |
| Albania | 13.9 |
| North Macedonia | 13.0 |
| Italy | 12.5 |
| Türkiye | 12.5 |
| Bulgaria | 12.4 |
| Montenegro | 12.2 |
| Serbia | 8.8 |
| Netherlands | 5.9 |
| Ireland | 5.8 |
| Portugal | 4.6 |
| Slovakia | 2.6 |
| Latvia | 2.5 |
| Croatia | 2.2 |
| Lithuania | 1.0 |
| Belgium | 0.6 |
| Romania | 0.4 |
| Poland | -1.5 |
| Cyprus | -1.8 |
| European Union - 27 countries (from 2020) | -3.7 |
| Euro area – 21 countries (from 2026) | -5.7 |
| Austria | -6.4 |
| France | -9.3 |
| Hungary | -10.8 |
| Germany | -25.8 |