在 R 中将多个竞赛列合并为一列

Question

I have 11 columns each representing a different race. Participants could select "Yes" or "No" for each column. I can't figure out how to merge all of these columns into one race variable where the "Yes" and "No" responses are converted to the specific race and if a participant selects more than one race, then have that be coded as "More than one race."

Any input would be appreciated!

Example Data

Answer 1

library(tidyverse)

df <- data.frame(q105_1 = c('', '', 'White', ''), 
                 q105_2 = c('Black', '', 'Black', ''))


twoOrMoreRaces <- df %>% 
  mutate(twoOrMoreMinority = case_when(
    q105_1 == 'White' & q105_2 == 'Black'~ 'Two or More races',
    TRUE ~ 'Single Race Reported'
  ))