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

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)

有没有一种简单的方法可以将它们转换为具有 H、k 或 u 级别的变量 i ？

我想你可以在这个例子中使用ifelse等来做到这一点，但是在我的数据文件中我有几百个虚拟对象，我懒得手动执行此操作。

Answer 1

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

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