BIS property prices - selected series - SPP

Data - BIS

Author

François Geerolf

Info

Last observation: Q: 2026-01-01 (N = 104)

First observation: Q: 1927-01-01 (N = 1)

Last data update: 25 jul 2026, 10:03. Last compile: 17 aoû 2026, 13:54

Structure

REF_AREA, Reference area

Code

SPP |>
  left_join(REF_AREA, by = "REF_AREA") |>
  group_by(REF_AREA, `Reference area`) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(`Reference area`)),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Real House Prices

Thailand, South Korea, Japan

All

Code

SPP |>
  filter(REF_AREA %in% c("JP", "KR", "TH"),
         FREQ == "Q",
         VALUE == "R",
         UNIT_MEASURE == "628") |>
  left_join(REF_AREA, by = "REF_AREA") |>
  left_join(colors, by = c("Reference area" = "country")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

1975

Code

SPP |>
  filter(REF_AREA %in% c("JP", "KR", "TH"),
         FREQ == "Q",
         date >= as.Date("1980-01-01"),
         VALUE == "R",
         UNIT_MEASURE == "628") |>
  left_join(REF_AREA, by = "REF_AREA") |>
  left_join(colors, by = c("Reference area" = "country")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Japan, United States, United Kingdom

Code

SPP |>
  filter(REF_AREA %in% c("JP", "GB", "US"),
         FREQ == "Q",
         date >= as.Date("1970-01-01"),
         VALUE == "R",
         UNIT_MEASURE == "628") |>
  left_join(REF_AREA, by = "REF_AREA") |>
  left_join(colors, by = c("Reference area" = "country")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Germany, France, Italy

All

Code

SPP |>
  filter(REF_AREA %in% c("DE", "FR", "IT"),
         FREQ == "Q",
         date >= as.Date("1970-01-01"),
         VALUE == "R",
         UNIT_MEASURE == "628") |>
  left_join(REF_AREA, by = "REF_AREA") |>
  left_join(colors, by = c("Reference area" = "country")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

1998-

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "FRA", "ITA"),
         FREQ == "Q",
         date >= as.Date("1997-12-31"),
         VALUE == "R",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  group_by(REF_AREA) |>
  mutate(value = 100*value/value[date == as.Date("1997-12-31")]) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 1998 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

2008-

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "FRA", "ITA"),
         FREQ == "Q",
         date >= as.Date("2007-12-31"),
         VALUE == "R",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  group_by(REF_AREA) |>
  mutate(value = 100*value/value[date == as.Date("2007-12-31")]) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 1998 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Germany, France, Italy, Japan, United States

All

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "FRA", "ITA", "JPN", "USA"),
         FREQ == "Q",
         date >= as.Date("1970-01-01"),
         VALUE == "R",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  mutate(color = ifelse(REF_AREA == "NLD", color2, color)) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

1990-

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "FRA", "ITA", "JPN", "USA", "ESP"),
         FREQ == "Q",
         date >= as.Date("1990-01-01"),
         VALUE == "R",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  mutate(color = ifelse(REF_AREA == "NLD", color2, color)) |>
  group_by(`Reference area`) |>
  arrange(date) |>
  mutate(value = 100*value/value[1]) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Germany, France, Italy, Spain, Netherlands

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "FRA", "ITA", "ESP", "NLD"),
         FREQ == "Q",
         date >= as.Date("1970-01-01"),
         VALUE == "R",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  mutate(color = ifelse(REF_AREA == "NLD", color2, color)) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Germany, France, Sweden, Japan

All

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "FRA", "SWE", "JPN"),
         FREQ == "Q",
         date >= as.Date("1970-01-01"),
         VALUE == "R",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

1998-

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "FRA", "SWE", "JPN"),
         FREQ == "Q",
         date >= as.Date("1997-12-31"),
         VALUE == "R",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  group_by(`Reference area`) |>
  mutate(value = 100*value/value[date == as.Date("1997-12-31")]) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 1998 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Germany, France, Sweden, Japan, Spain, US, Switzerland

All

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "FRA", "SWE", "JPN", "ESP", "ITA", "USA", "CHE"),
         FREQ == "Q",
         VALUE == "R",
         date >= as.Date("1972-12-31"),
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  group_by(`Reference area`) |>
  mutate(value = 100*value/value[date == as.Date("1972-12-31")]) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 1998 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

1998-

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "FRA", "SWE", "JPN", "ESP", "ITA", "USA", "CHE"),
         FREQ == "Q",
         date >= as.Date("1997-12-31"),
         VALUE == "R",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  group_by(`Reference area`) |>
  mutate(value = 100*value/value[date == as.Date("1997-12-31")]) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 1998 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Denmark, Germany, Switzerland

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "DNK", "CHE"),
         FREQ == "Q",
         date >= as.Date("1970-01-01"),
         VALUE == "R",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Nominal House Prices

Japan, United States, United Kingdom

Code

SPP |>
  filter(REF_AREA %in% c("JPN", "GBR", "USA"),
         FREQ == "Q",
         date >= as.Date("1970-01-01"),
         VALUE == "N",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Germany, France, Sweden, Japan

1970-

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "FRA", "JPN", "SWE"),
         FREQ == "Q",
         date >= as.Date("1970-01-01"),
         VALUE == "N",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

1998-

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "FRA", "JPN", "SWE"),
         FREQ == "Q",
         date >= as.Date("1998-01-01"),
         VALUE == "N",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Nominal House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Germany, France, Italy

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "FRA", "ITA"),
         FREQ == "Q",
         date >= as.Date("1970-01-01"),
         VALUE == "N",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Denmark, Germany, Switzerland

Code

SPP |>
  filter(REF_AREA %in% c("DEU", "DNK", "CHE"),
         FREQ == "Q",
         date >= as.Date("1970-01-01"),
         VALUE == "N",
         UNIT_MEASURE == 628) |>
  left_join(colors, by = c("Reference area" = "country")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Real House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = color)) + 
  scale_color_identity() + add_flags +
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Individual Countries

Italy

Code

SPP |>
  filter(REF_AREA %in% c("ITA"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Japan

Code

SPP |>
  filter(REF_AREA %in% c("JPN"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

South Africa

Code

SPP |>
  filter(REF_AREA %in% c("ZAF"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

United Kingdom

Code

SPP |>
  filter(REF_AREA %in% c("GBR"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Australia

All

Code

SPP |>
  filter(REF_AREA %in% c("AUS"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

2000-

Code

SPP |>
  filter(REF_AREA %in% c("AUS"),
         FREQ == "Q",
         UNIT_MEASURE == 628,
         date >= as.Date("2000-01-01")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

2010-

Code

SPP |>
  filter(REF_AREA %in% c("AUS"),
         FREQ == "Q",
         UNIT_MEASURE == 628,
         date >= as.Date("2010-01-01")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Belgium

Code

SPP |>
  filter(REF_AREA %in% c("BEL"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Canada

Code

SPP |>
  filter(REF_AREA %in% c("CAN"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Switzerland

Code

SPP |>
  filter(REF_AREA %in% c("CHE"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Germany

Code

SPP |>
  filter(REF_AREA %in% c("DEU"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Denmark

Code

SPP |>
  filter(REF_AREA %in% c("DNK"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Finland

Code

SPP |>
  filter(REF_AREA %in% c("FIN"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

France

Code

SPP |>
  filter(REF_AREA %in% c("FRA"),
         FREQ == "Q",
         date >= as.Date("1970-01-01"),
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = c(seq(1, 10, 1), seq(0, 600, 10)),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Ireland

Code

SPP |>
  filter(REF_AREA %in% c("IRL"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Netherlands

Code

SPP |>
  filter(REF_AREA %in% c("NLD"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

New Zealand

Code

SPP |>
  filter(REF_AREA %in% c("NZL"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Sweden

Code

SPP |>
  filter(REF_AREA %in% c("SWE"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Sweden (1980 - 2000)

Code

SPP |>
  filter(REF_AREA %in% c("SWE"),
         FREQ == "Q",
         UNIT_MEASURE == 628,
         date >= as.Date("1980-01-01"),
         date <= as.Date("2000-01-01")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 5),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

United States

Code

SPP |>
  filter(REF_AREA %in% c("USA"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Spain

Code

SPP |>
  filter(REF_AREA %in% c("ESP"),
         FREQ == "Q",
         date >= as.Date("1970-01-01"),
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = c(seq(1, 10, 1), seq(0, 600, 10)),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Korea

Code

SPP |>
  filter(REF_AREA %in% c("KOR"),
         FREQ == "Q",
         date >= as.Date("1970-01-01"),
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = c(seq(1, 10, 1), seq(0, 600, 10)),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Euro Area

Code

SPP |>
  filter(`Reference area` %in% c("Euro area"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Hong Kong

Code

SPP |>
  filter(REF_AREA %in% c("HKG"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Norway

Code

SPP |>
  filter(REF_AREA %in% c("NOR"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Colombia

Code

SPP |>
  filter(REF_AREA %in% c("COL"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Malaysia

Code

SPP |>
  filter(REF_AREA %in% c("MYS"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Thailand

Code

SPP |>
  filter(REF_AREA %in% c("THA"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Israel

Code

SPP |>
  filter(REF_AREA %in% c("ISR"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Peru

Code

SPP |>
  filter(REF_AREA %in% c("PER"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Singapore

Code

SPP |>
  filter(REF_AREA %in% c("SGP"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Lithuania

Code

SPP |>
  filter(REF_AREA %in% c("LTU"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Austria

Code

SPP |>
  filter(REF_AREA %in% c("AUT"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Iceland

Code

SPP |>
  filter(REF_AREA %in% c("ISL"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

North Macedonia

Code

SPP |>
  filter(REF_AREA %in% c("MKD"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Serbia

Code

SPP |>
  filter(REF_AREA %in% c("SRB"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Brazil

Code

SPP |>
  filter(REF_AREA %in% c("BRA"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Russia

Code

SPP |>
  filter(REF_AREA %in% c("RUS"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Croatia

Code

SPP |>
  filter(REF_AREA %in% c("HRV"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Indonesia

Code

SPP |>
  filter(REF_AREA %in% c("IDN"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Chile

Code

SPP |>
  filter(REF_AREA %in% c("CHL"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Cyprus

Code

SPP |>
  filter(REF_AREA %in% c("CYP"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

United Arab Emirates

Code

SPP |>
  filter(REF_AREA %in% c("ARE"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Bulgaria

Code

SPP |>
  filter(REF_AREA %in% c("BGR"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Estonia

Code

SPP |>
  filter(REF_AREA %in% c("EST"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Mexico

Code

SPP |>
  filter(REF_AREA %in% c("MEX"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Malta

Code

SPP |>
  filter(REF_AREA %in% c("MLT"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

China

Code

SPP |>
  filter(REF_AREA %in% c("CHN"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Greece

Code

SPP |>
  filter(REF_AREA %in% c("GRC"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Latvia

Code

SPP |>
  filter(REF_AREA %in% c("LVA"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Morocco

Code

SPP |>
  filter(REF_AREA %in% c("MAR"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Slovak Republic

Code

SPP |>
  filter(REF_AREA %in% c("SVK"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Hungary

Code

SPP |>
  filter(REF_AREA %in% c("HUN"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Slovenia

Code

SPP |>
  filter(REF_AREA %in% c("SVN"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Luxembourg

Code

SPP |>
  filter(REF_AREA %in% c("LUX"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Czech Republic

Code

SPP |>
  filter(REF_AREA %in% c("CZE"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Philippines

Code

SPP |>
  filter(REF_AREA %in% c("PHL"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Portugal

Code

SPP |>
  filter(REF_AREA %in% c("PRT"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

India

Code

SPP |>
  filter(REF_AREA %in% c("IND"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Romania

Code

SPP |>
  filter(REF_AREA %in% c("ROU"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Poland

Code

SPP |>
  filter(REF_AREA %in% c("POL"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.8, 0.2),
        legend.title = element_blank())

Turkey

Code

SPP |>
  filter(REF_AREA %in% c("TUR"),
         FREQ == "Q",
         UNIT_MEASURE == 628) |>
  ggplot() + theme_minimal() + xlab("") + ylab("House Prices (Index, 2010 = 100)") +
  geom_line(aes(x = date, y = value, color = VALUE)) + 
  scale_x_date(breaks = seq(1900, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 600, 10),
                     labels = dollar_format(a = 1, prefix = "")) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.2, 0.8),
        legend.title = element_blank())