Median consumption by income decile - experimental statistics - icw_sr_06

Data - Eurostat

Structure

France

Consumption by Income Decile, 2020

Code
icw_sr_06 |>
  filter(geo == "FR",
         unit == "THS_EUR",
         time == "2020") |>
  ggplot() + geom_col(aes(x = reorder(Quant_inc, values), y = values), fill = "steelblue") +
  coord_flip() +
  theme_minimal() +
  xlab("") + ylab("Median consumption (Thousand €)")

Bottom vs. Top Decile Over Time

Code
icw_sr_06 |>
  filter(geo == "FR",
         unit == "THS_EUR",
         quant_inc %in% c("D1", "D10")) |>
  year_to_date() |>
  ggplot() + geom_line(aes(x = date, y = values, color = Quant_inc)) +
  geom_point(aes(x = date, y = values, color = Quant_inc)) +
  theme_minimal() +
  theme(legend.position = c(0.2, 0.8),
        legend.title = element_blank()) +
  xlab("") + ylab("Median consumption (Thousand €)")

Latest Year: Top/Bottom Decile Ratio by Country

Code
latest_y <- icw_sr_06 |>
  filter(unit == "THS_EUR", nchar(geo) == 2, !is.na(values)) |>
  summarise(m = max(time)) |>
  pull(m)

icw_sr_06 |>
  filter(unit == "THS_EUR",
         nchar(geo) == 2,
         quant_inc %in% c("D1", "D10"),
         time == latest_y) |>
  select(Geo, quant_inc, values) |>
  spread(quant_inc, values) |>
  mutate(Ratio = round(D10/D1, 1)) |>
  arrange(-Ratio) |>
  print_table_conditional()
Geo D1 D10 Ratio
Latvia 2.7 22.8 8.4
Croatia 3.2 20.7 6.5
Cyprus 7.9 48.7 6.2
Bulgaria 2.0 11.2 5.6
Estonia 4.3 22.3 5.2
Hungary 3.2 16.4 5.1
Lithuania 3.4 17.1 5.0
Slovenia 6.5 32.4 5.0
Portugal 5.7 27.8 4.9
Romania 3.0 14.8 4.9
Germany 10.7 50.6 4.7
Greece 5.7 26.2 4.6
Finland 13.7 62.3 4.5
France 11.0 47.0 4.3
Spain 7.5 32.1 4.3
Euro area (EA11-1999, EA12-2001, EA13-2007, EA15-2008, EA16-2009, EA17-2011, EA18-2014, EA19-2015, EA20-2023, EA21-2026) 10.6 43.6 4.1
European Union (EU6-1958, EU9-1973, EU10-1981, EU12-1986, EU15-1995, EU25-2004, EU27-2007, EU28-2013, EU27-2020) 9.2 37.4 4.1
Poland 3.1 12.4 4.0
Austria 14.5 52.7 3.6
Malta 9.2 32.7 3.6
Czechia 5.5 19.4 3.5
Ireland 17.6 52.4 3.0
Luxembourg 26.0 76.6 2.9
Slovakia 5.3 15.6 2.9
Netherlands 18.1 50.7 2.8
Denmark 16.3 44.0 2.7
Belgium 15.3 36.2 2.4