Proportion of consumption decile by income decile - experimental statistics - icw_sr_07

Data - Eurostat

Author

quant_expn

Code

icw_sr_07 %>%
  left_join(quant_expn, by = "quant_expn") %>%
  group_by(quant_expn, Quant_expn) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

quant_expn	Quant_expn	Nobs
D1	First decile	860
D10	Tenth decile	860
D2	Second decile	860
D3	Third decile	860
D4	Fourth decile	860
D5	Fifth decile	860
D6	Sixth decile	860
D7	Seventh decile	860
D8	Eighth decile	860
D9	Ninth decile	860

unit

Code

icw_sr_07 %>%
  left_join(unit, by = "unit") %>%
  group_by(unit, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

unit	Unit	Nobs
PC_HH	Percentage of households	8600

geo

Code

icw_sr_07 %>%
  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

icw_sr_07 %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

time	Nobs
2015	3100
2020	2900
2010	2600