Owner-occupied housing price index - item weights - prc_hpi_ooinw

Data - Eurostat

expend

Code
prc_hpi_ooinw %>%
  left_join(expend, by = "expend") %>%
  group_by(expend, Expend) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
expend Expend Nobs
DW_ACQ Acquisitions of dwellings 551
DW_ACQ_NEW New dwellings 551
DW_ACQ_OTH Other services related to the acquisition of dwellings 551
TOTAL Total 550
DW_OWN Ownership of dwellings 549
DW_OWN_RMNT Major repairs and maintenance 549
DW_OWN_INS Insurance connected with dwellings 548
DW_ACQ_NEWP Purchases of newly built dwellings 545
DW_ACQ_NEWSB Self-build dwellings and major renovations 542
DW_OWN_OTH Other services related to ownership of dwellings 542
DW_ACQ_EXST Existing dwellings new to the households 541

unit

Code
prc_hpi_ooinw %>%
  left_join(unit, by = "unit") %>%
  group_by(unit, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
unit Unit Nobs
PM Per mille 6019

geo

Code
prc_hpi_ooinw %>%
  left_join(geo, by = "geo") %>%
  group_by(geo, Geo) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

time

Code
prc_hpi_ooinw %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Housing Tenure

png

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

Javascript

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