Structural Housing Indicators Statistics - SHI

Data - ECB

Author

TITLE

Code

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

REF_AREA

Code

SHI %>%
  left_join(REF_AREA,  by = "REF_AREA") %>%
  group_by(REF_AREA, Ref_area) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

SHI_INDICATOR

Code

SHI %>%
  left_join(SHI_INDICATOR,  by = "SHI_INDICATOR") %>%
  group_by(SHI_INDICATOR, Shi_indicator) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

SHI_SUFFIX

Code

SHI %>%
  left_join(SHI_SUFFIX,  by = "SHI_SUFFIX") %>%
  group_by(SHI_SUFFIX, Shi_suffix) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

SHI_SUFFIX	Shi_suffix	Nobs
A	Absolute value	6085
P	Percentage	3654

OBS_STATUS

Code

SHI %>%
  left_join(OBS_STATUS,  by = "OBS_STATUS") %>%
  group_by(OBS_STATUS, Obs_status) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

OBS_STATUS	Obs_status	Nobs
A	Normal value	6975
Q	Missing value; suppressed	1396
E	Estimated value	481
M	Missing value; data cannot exist	428
L	Missing value; data exist but were not collected	382
	NA	57
P	Provisional value	17
B	Time series break	3

FREQ

Code

SHI %>%
  left_join(FREQ,  by = "FREQ") %>%
  group_by(FREQ, Freq) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

FREQ	Freq	Nobs
A	Annual	9370
Q	Quarterly	369