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