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

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 转换为一个虚拟变量。