Effective tax rate on entering employment - PTR

Data - OECD

Author

FAMILY

Code

PTR %>%
  left_join(PTR_var$FAMILY %>%
              setNames(c("FAMILY", "Family")), by = "FAMILY") %>%
  group_by(FAMILY, Family) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

FAMILY	Family	Nobs
1EARNERC	Couple without children - partner is out of work	59264
1EARNERC2C	Couple with 2 children - partner is out of work	59264
2EARNERC2C_67AW	Couple with 2 children - partner's earnings: 67% of the AW	59264
2EARNERC2C_AW	Couple with 2 children - partner's earnings: AW	59264
2EARNERC_67AW	Couple without children - partner's earnings: 67% of the AW	59264
2EARNERC_AW	Couple without children - partner's earnings: Average Wage (AW)	59264
SINGLE	Single person without children	59264
SINGLE2C	Single person with 2 children	59264

UBMAINBEN

Code

PTR %>%
  left_join(PTR_var$UBMAINBEN %>%
              setNames(c("UBMAINBEN", "Unmainben")), by = "UBMAINBEN") %>%
  group_by(UBMAINBEN, Unmainben) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

UBMAINBEN	Unmainben	Nobs
1	Unemployment Benefits	414848
0	Guaranteed Minimum Income (GMI) benefits	59264

EARNINGS

Code

PTR %>%
  left_join(PTR_var$EARNINGS %>%
              setNames(c("EARNINGS", "Earnings")), by = "EARNINGS") %>%
  group_by(EARNINGS, Earnings) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}

EARNINGS	Earnings	Nobs
67AW	67% of the Average Wage	172032
AW	Average Wage	172032
MIN	Minimum Wage	130048