创建对应于基于行的值名称和数据帧追加

Question

我有以下数据框列名的列表：

C1 C2 C3 C4 C5 
R1 1 0 0 1 5 
R2 0 1 5 8 3 
R3 5 8 0 6 0 

现在我想要的结果在下面的表格

R1 C2,C3 
R2 C1 
R3 C3,C5 

即colnames数据框中特定行的所有值> 0以及行名称。

Answer 1

我们可以通过与apply行循环，得到对应于该0和paste

data.frame(col1 = apply(df1, 1, FUN = function(x) toString(names(x)[x==0])))