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	830
D10	Tenth decile	830
D2	Second decile	830
D3	Third decile	830
D4	Fourth decile	830
D5	Fifth decile	830
D6	Sixth decile	830
D7	Seventh decile	830
D8	Eighth decile	830
D9	Ninth decile	830

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	8300

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
2010	2600
2020	2600