Receipt of DOLE programs

Overall receipt of DOLE programs

# Calculate share receiving each program and share receiving any program
apis %>% 
  summarize(across(c(tupad, camp, akap, dti, any_dole), weighted.mean, rfact))

summarize: now one row and 5 columns, ungrouped

Receipt of DOLE programs by 2020 Q1 income quintile

# Calculate share receiving each program and share receiving any program
apis %>% group_by(quints) %>% 
  summarize(across(c(tupad, camp, akap, dti, any_dole), weighted.mean, rfact))

group_by: one grouping variable (quints)
summarize: now 5 rows and 6 columns, ungrouped