重新編碼在R：變換數據的2個數字行成一個因子

行

> x = data.frame(var1 = c(0,0,1,1), var = c(0,1,0,1))

我想另一列添加到該數據幀是因子，基於所述值集合var1和var2。

factor "00" if both are 0 
factor "10" if var1 = 1 and var2 = 0 
factor "01" if var1 = 0 and var2 = 1 
factor "11" if both are 1

在現實中，我有大約10個變量，需要生成交叉表的因素來檢查其他變量如何影響因素。

我可以寫如果語句來完成這個，但我認爲必須有一個更聰明的方式來做到這一點。有什麼建議麼？

來源

2013-11-26 RalfB

您正在尋找interaction：

transform(x, Factor=interaction(var1, var,sep='')) 

    var1 var Factor 
1 0 0  00 
2 0 1  01 
3 1 0  10 
4 1 1  11

來源

2013-11-26 15:03:14 agstudy

我仍然認爲創建一個新的命名字段'X $因子=互動（X $ VAR1，X $ VAR 09月= ''）'是更好的做法 - 更加簡潔，明確哪些事情我們正在努力，對錯別字和範圍問題免疫。這裏的'transform'功能有點不必要。 $ 0.02 – Spacedman

@Spacedman好吧。我同意，即使我使用它是語法糖，但您的評論中的$ 0.02是什麼？使用'transform'的美元成本是多少？ :) – agstudy

它只是我的「兩分錢的價值」 - 這麼說，我只是增加一點點這可能是一個小的貢獻，美國的表現。我甚至不是美國人（應該是0.02英鎊，我想）。 – Spacedman

使用transform和paste0

> x <- transform(x, Factor=paste0(var1, var)) 
    var1 var Factor 
1 0 0  00 
2 0 1  01 
3 1 0  10 
4 1 1  11 

> sapply(x, class) # checking class for each column 
    var1  var Factor 
"numeric" "numeric" "factor"

另一種方法是使用within

x <- within(x, Factor <- factor(paste0(var1, var)))

來源

2013-11-26 14:59:36

只需創建一個新列 - 使用factor和paste0：

> x$f = factor(paste0(x$var1,x$var)) 
> x 
    var1 var f 
1 0 0 00 
2 0 1 01 
3 1 0 10 
4 1 1 11

來源

2013-11-26 15:00:33 Spacedman

重新編碼在R：變換數據的2個數字行成一個因子

回答

相關問題