Owner-occupied housing price index - item weights - prc_hpi_ooinw

Data - Eurostat

Structure

New Dwellings: Weight in the OOH Price Index

France, Germany, Italy, Spain

Code
prc_hpi_ooinw |>
  filter(geo %in% c("FR", "DE", "IT", "ES"),
         expend == "DW_ACQ_NEW") |>
  year_to_date() |>
  mutate(values = values/1000) |>
  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, 2), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("Weight of new dwellings in OOH price index") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1))

France: Acquisition vs. Ownership Costs

Code
prc_hpi_ooinw |>
  filter(geo == "FR",
         expend %in% c("DW_ACQ", "DW_OWN")) |>
  year_to_date() |>
  mutate(values = values/1000) |>
  ggplot() + geom_line(aes(x = date, y = values, color = Expend)) +
  theme_minimal() +
  scale_x_date(breaks = as.Date(paste0(seq(2000, 2100, 2), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.85),
        legend.title = element_blank()) +
  xlab("") + ylab("Weight in owner-occupied housing price index") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1))

Housing Tenure

png

Code
include_graphics3b("bib/eurostat/prc_hpi_ooinw_ex2.png")

Javascript

Code
prc_hpi_ooinw |>
  filter(time == "2018") |>
  
  select(geo, Geo, expend, values) |>
  spread(expend, values) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}