Owner-occupied housing price index - item weights - prc_hpi_ooinw

Data - Eurostat

expend

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	600
DW_ACQ_NEW	New dwellings	600
DW_ACQ_OTH	Other services related to the acquisition of dwellings	600
TOTAL	Total	599
DW_OWN	Ownership of dwellings	598
DW_OWN_RMNT	Major repairs and maintenance	598
DW_OWN_INS	Insurance connected with dwellings	597
DW_ACQ_NEWP	Purchases of newly built dwellings	594
DW_ACQ_NEWSB	Self-build dwellings and major renovations	591
DW_OWN_OTH	Other services related to ownership of dwellings	591
DW_ACQ_EXST	Existing dwellings new to the households	590

unit

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	6558

geo

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

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

Housing Tenure

png

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

Javascript

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 .}