Last observation: 2026M07 (N = 420)
First observation: 1984M02 (N = 8)
Last data update: 14 aoû 2026, 23:24. Last compile: 18 aoû 2026, 00:31
Data - Eurostat
Last observation: 2026M07 (N = 420)
First observation: 1984M02 (N = 8)
Last data update: 14 aoû 2026, 23:24. Last compile: 18 aoû 2026, 00:31
ei_bsrt_m_r2 |>
filter(geo %in% c("FR", "DE", "IT", "ES"),
indic == "BS-RCI",
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_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 | 30.3 |
| Slovenia | 18.1 |
| Greece | 17.0 |
| Czechia | 16.2 |
| North Macedonia | 16.1 |
| Denmark | 14.6 |
| Italy | 12.4 |
| Türkiye | 12.3 |
| Montenegro | 12.2 |
| Albania | 12.0 |
| Bulgaria | 11.7 |
| Finland | 11.7 |
| Netherlands | 9.4 |
| Ireland | 8.3 |
| Serbia | 6.8 |
| Portugal | 6.7 |
| Lithuania | 3.9 |
| Latvia | 2.3 |
| Slovakia | 2.3 |
| Croatia | 0.4 |
| Poland | -0.1 |
| Romania | -2.1 |
| Cyprus | -2.6 |
| European Union - 27 countries (from 2020) | -4.1 |
| Euro area – 21 countries (from 2026) | -6.6 |
| Austria | -7.0 |
| Hungary | -9.1 |
| Belgium | -9.8 |
| France | -12.1 |
| Germany | -25.8 |