從多個虛擬變量轉到單個變量

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轉換爲一個虛擬變量。