小编esh*_*h88的帖子

我有一个7行和4列的数据框(df)(名为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

如果第1列到第4列的值等于"是",我想在名为Expected Result的数据框中添加第5列.例如,在第1行,我在第1列和第3列中有"是"参数.要填充"预期结果"列,我将连接并将Column1名称和第2列名称添加到结果中.

以下是预期的完整结果:

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

我有以下代码行,但有些不太正确:

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