Building permits - monthly data - sts_cobp_m

Data - Eurostat

Structure

Building Permits (Residential, m², SA)

France, Germany, Spain, Netherlands

All

Code
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)")

2021-

Code
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)")

France: Residential vs. Non-Residential

Code
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)")