У меня есть фрейм данных (df) с 7 строками и 4 столбцами (с именами c1, c2, c3, c4):

c1  c2  c3  c4
Yes No  Yes No    
Yes Yes No  No    
No  Yes No  No    
Yes No  No  No    
Yes No  Yes No    
Yes No  No  No    
No  No  Yes No

Я хочу добавить 5-й столбец во фрейм данных с именем Ожидаемый результат, если значения в столбцах с 1 по 4 равны «Да». Например, в строке 1 у меня есть параметры «Да» в столбце 1 и столбце 3. Чтобы заполнить столбец «Ожидаемый результат», я должен объединить и добавить имя столбца 1 и имя столбца 2 в результат.

Вот полные ожидаемые результаты:

c1, c3    
c1, c2    
c2    
c1    
c1, c3    
c1    
c3

У меня есть следующая строка кода, но что-то не совсем верно:

df$Expected_Result <- colnames(df)[apply(df,1,which(LETTERS="Unfit"))]