从多个虚拟变量转到单个变量

Question

如何在数据框中将n虚拟变量互斥并将它们连接成单个变量？在下面的例子

k <- data.frame(H=sample(c(T, F), 100, T)) 
ifelse(k$H==T, F, sample(c(T, F))) -> k$k 
k$u <- ifelse(k$H==T | k$k==T, F, T) 

有将这些成一个变量与i水平H，k或u的一种简单的方法？

我想你可以用ifelse等来做，在这个例子中，但在我的数据文件中，我有几百个傻瓜，我懒得手动做这个。

Answer 1

k$i <- names(k)[apply(k, 1, which)] 

会将bool转换为一个虚拟变量。