Gini coefficient on household population - experimental statistics - icw_sr_05

Data - Eurostat

stk_flow

Code
icw_sr_05 %>%
  left_join(stk_flow, by = "stk_flow") %>%
  group_by(stk_flow, Stk_flow) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
stk_flow Stk_flow Nobs
EXPN Expenditure 84
INC Income 84
SAV Savings 84
WLTH_NET Net wealth 59

unit

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

geo

Code
icw_sr_05 %>%
  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_05 %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
time Nobs
2015 116
2020 100
2010 95

2010

Code
icw_sr_05 %>%
  filter(time == "2010") %>%
  select(stk_flow, geo, values) %>%
  left_join(geo, by = "geo") %>%
  spread(stk_flow, values) %>%
  {if (is_html_output()) print_table(.) else .}
geo Geo EXPN INC SAV WLTH_NET
AT Austria 33.5 35.4 67.9 75.0
BE Belgium 32.8 34.8 72.8 60.7
BG Bulgaria 31.8 41.2 57.8 NA
CY Cyprus 37.0 37.7 74.1 69.4
CZ Czechia NA 32.5 59.3 NA
DE Germany 33.3 36.5 69.4 74.8
DK Denmark 30.0 37.1 75.2 NA
EE Estonia 40.6 39.6 61.4 NA
EL Greece 38.1 38.0 81.3 55.8
ES Spain 34.7 38.2 70.1 59.4
FI Finland 36.0 34.7 65.0 63.0
FR France 33.8 35.8 63.9 67.5
HR Croatia 32.9 39.3 75.6 NA
HU Hungary 29.4 33.0 66.7 NA
IE Ireland 32.8 35.2 65.6 NA
IT Italy 37.2 37.4 68.3 60.9
LT Lithuania 36.0 43.7 71.4 NA
LU Luxembourg 32.7 31.9 61.1 65.8
LV Latvia 37.5 42.1 74.3 NA
MT Malta 36.1 34.8 69.9 57.2
PL Poland 34.4 37.0 63.8 NA
PT Portugal 40.2 38.5 72.3 65.6
RO Romania 30.5 37.9 81.4 NA
SE Sweden 31.1 34.4 65.9 NA
SI Slovenia 32.7 34.1 65.3 53.2
SK Slovakia 29.9 34.4 61.2 44.8
UK United Kingdom NA 39.2 68.6 NA

2015

Code
icw_sr_05 %>%
  filter(time == "2015") %>%
  select(stk_flow, geo, values) %>%
  left_join(geo, by = "geo") %>%
  spread(stk_flow, values) %>%
  select(geo, Geo, everything()) %>%
  {if (is_html_output()) print_table(.) else .}
geo Geo EXPN INC SAV WLTH_NET
AT Austria 34.3 34.3 65.7 72.3
BE Belgium 33.8 34.3 67.3 58.5
BG Bulgaria 34.2 43.2 71.4 NA
CY Cyprus 36.0 37.8 74.7 68.9
CZ Czechia 26.8 33.6 58.7 NA
DE Germany 32.7 38.2 70.3 75.1
DK Denmark 31.4 36.7 66.7 NA
EA Euro area (EA11-1999, EA12-2001, EA13-2007, EA15-2008, EA16-2009, EA17-2011, EA18-2014, EA19-2015, EA20-2023) 33.8 36.7 67.0 68.4
EA20 Euro area – 20 countries (from 2023) 33.8 36.7 67.1 68.4
EE Estonia 40.5 41.5 62.3 68.8
EL Greece 37.6 38.0 80.8 59.0
ES Spain 35.4 38.0 68.3 65.5
EU European Union (EU6-1958, EU9-1973, EU10-1981, EU12-1986, EU15-1995, EU25-2004, EU27-2007, EU28-2013, EU27-2020) 33.7 36.8 67.2 67.3
EU27_2020 European Union - 27 countries (from 2020) 33.5 36.7 66.4 67.3
FI Finland 34.2 34.6 66.6 63.9
FR France 34.6 34.3 59.3 66.7
HR Croatia 33.2 38.4 75.2 NA
HU Hungary 31.4 34.8 68.7 62.9
IE Ireland 33.5 36.3 63.9 69.4
LT Lithuania 37.5 45.6 67.9 NA
LU Luxembourg 33.2 33.8 63.3 64.1
LV Latvia 39.7 43.3 67.7 74.0
MT Malta 36.5 36.3 69.5 56.7
NL Netherlands 27.9 35.3 68.7 63.3
PL Poland 32.9 35.9 59.4 58.6
PT Portugal 37.1 37.9 68.6 67.0
RO Romania 31.1 39.9 71.0 NA
SE Sweden 32.3 34.9 63.8 NA
SI Slovenia 32.3 34.4 63.9 62.5
SK Slovakia 28.0 32.3 66.3 48.9
UK United Kingdom 35.3 37.7 71.5 NA