Last observation: 2026Q2 (N = 2107)
First observation: 2015Q1 (N = 2493)
Last data update: 15 aoû 2026, 23:16. Last compile: 18 aoû 2026, 04:24
Data - Eurostat
Last observation: 2026Q2 (N = 2107)
First observation: 2015Q1 (N = 2493)
Last data update: 15 aoû 2026, 23:16. Last compile: 18 aoû 2026, 04:24
sts_rb_q |>
filter(geo %in% c("FR", "DE", "IT", "ES"),
nace_r2 == "B-S_X_O_S94",
indic_bt == "BKRT",
unit == "I21",
s_adj == "SCA") |>
quarter_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(2015, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Bankruptcy declarations (index, 2021=100)")
sts_rb_q |>
filter(geo == "FR",
nace_r2 == "B-S_X_O_S94",
unit == "I21",
s_adj == "SCA") |>
quarter_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Indic_bt)) +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(2015, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Index, 2021=100") +
theme(legend.position = c(0.25, 0.85), legend.title = element_blank())
latest_q_rb <- sts_rb_q |>
filter(nace_r2 == "B-S_X_O_S94",
unit == "I21",
s_adj == "SCA",
geo %in% c("FR", "DE", "IT", "ES"),
!is.na(values)) |>
summarise(m = max(time)) |>
pull(m)
sts_rb_q |>
filter(geo %in% c("FR", "DE", "IT", "ES"),
nace_r2 == "B-S_X_O_S94",
unit == "I21",
s_adj == "SCA",
time == latest_q_rb) |>
select(indic_bt, Indic_bt, Geo, values) |>
spread(Geo, values) |>
print_table_conditional()| indic_bt | Indic_bt | France | Germany | Italy | Spain |
|---|---|---|---|---|---|
| BKRT | Bankruptcy declarations | 264.8 | NA | 109.9 | 148.9 |
| REG | Registrations | 120.1 | 113.8 | 99.0 | 126.1 |