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

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	870
PPS	Purchasing power standard (PPS)	600

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	580
2015	620
2010	270