Detailed data - SOCR

Data - OECD

Author

SOURCE

Code

SOCR %>%
  left_join(SOCR_var$SOURCE %>%
              setNames(c("SOURCE", "Source")), by = "SOURCE") %>%
  group_by(SOURCE, Source) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

SOURCE	Source	Nobs
ALL	All	413052
10	Public	406332
20	Mandatory Private	6720

BRANCH

Code

SOCR %>%
  left_join(SOCR_var$BRANCH %>%
              setNames(c("BRANCH", "Branch")), by = "BRANCH") %>%
  group_by(BRANCH, Branch) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

VARIABLE

Code

SOCR %>%
  left_join(SOCR_var$VARIABLE %>%
              setNames(c("VARIABLE", "Variable")), by = "VARIABLE") %>%
  group_by(VARIABLE, Variable) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

VARIABLE	Variable	Nobs
C65MORE	65+, of those	82656
CR	Current recipients (all), of those	82656
INFLOWS	Inflows: New recipients of the benefit	82656
ADJ	Adjusted caseloads (all), of those	82640
CMEN	Men	82600
CWOM	Women	82600
ADJ65MORE	65+	82576
CMEN65	Men (65+)	82576
OUTFLOWS	Outflows: Number of exits of the benefit	82576
CWOM65	Women (65+)	82568

SUP

Code

SOCR %>%
  left_join(SOCR_var$SUP %>%
              setNames(c("SUP", "Sup")), by = "SUP") %>%
  group_by(SUP, Sup) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

SUP	Sup	Nobs
ALL	All	413052
0	Income replacement	357852
1	Supplement	38400
2	Can be supplement	16800

MEAN

Code

SOCR %>%
  left_join(SOCR_var$MEAN %>%
              setNames(c("MEAN", "Mean")), by = "MEAN") %>%
  group_by(MEAN, Mean) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

MEAN	Mean	Nobs
ALL	All	413052
0	Non Means-tested	289728
1	Means-tested	123324

MEASURE

Code

SOCR_var %>%
  pluck("MEASURE") %>%
  print_table_long

id	label
0	Number of Recipients