Last observation: juil. 2026 (N = 231)
First observation: janv. 1994 (N = 39)
Last data update: 12 sept. 2026, 22:56
Last compile: 16 sept. 2026, 20:18
sts_cobp_m |>
filter(geo %in% c("FR", "DE", "ES", "NL", "IT"),
indic_bt == "BPRM_SQM",
cpa2_1 == "CPA_F41001",
s_adj == "SCA",
unit == "I21") |>
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(2000, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Building permits, residential, m² (Index 2021 = 100)")
sts_cobp_m |>
filter(geo %in% c("FR", "DE", "ES", "NL", "IT"),
indic_bt == "BPRM_SQM",
cpa2_1 == "CPA_F41001",
s_adj == "SCA",
unit == "I21") |>
month_to_date() |>
filter(date >= as.Date("2021-01-01")) |>
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(2000, 2100, 1), "-01-01")),
labels = date_format("%Y")) +
xlab("") + ylab("Building permits, residential, m² (Index 2021 = 100)")
sts_cobp_m |>
filter(geo == "FR",
indic_bt == "BPRM_SQM",
cpa2_1 %in% c("CPA_F41001", "CPA_F41002"),
s_adj == "SCA",
unit == "I21") |>
month_to_date() |>
ggplot() + geom_line(aes(x = date, y = values, color = Cpa2_1)) +
theme_minimal() +
scale_x_date(breaks = as.Date(paste0(seq(2000, 2100, 5), "-01-01")),
labels = date_format("%Y")) +
theme(legend.position = c(0.3, 0.85),
legend.title = element_blank()) +
xlab("") + ylab("Building permits, m² (Index 2021 = 100)")