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	87
INC	Income	87
SAV	Savings	87
WLTH_NET	Net wealth	62

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	323

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	112
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
EA21	NA	33.8	36.8	67.2	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