Median consumption by income decile - experimental statistics

Data - Eurostat

Author

quantile

Code

icw_sr_06 %>%
  left_join(quant_inc, by = "quant_inc") %>%
  group_by(quant_inc, Quant_inc) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

quant_inc	Quant_inc	Nobs
D1	First decile	141
D10	Tenth decile	141
D2	Second decile	141
D3	Third decile	141
D4	Fourth decile	141
D5	Fifth decile	141
D6	Sixth decile	141
D7	Seventh decile	141
D8	Eighth decile	141
D9	Ninth decile	141

unit

Code

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

unit	Unit	Nobs
THS_EUR	Thousand euro	840
PPS	Purchasing power standard (PPS)	570

geo

Code

icw_sr_06 %>%
  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_06 %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  {if (is_html_output()) print_table(.) else .}

time	Nobs
2020	520
2015	620
2010	270