R连接两个因素

Question

这让我感到很蠢，但我试图产生一个连接两个因素的vector/df/list/etc（除了矩阵之外的任何东西）。这是场景。我有一个100k线数据集。我用上半部分来预测下半部分，反之亦然，用knn。所以现在我有两个由knn predict()创建的对象。

> head(pred11) 
[1] 0 0 0 0 0 0 
Levels: 0 1 
> head(pred12) 
[1] 0 1 1 0 0 0 
Levels: 0 1 
> class(pred11) 
[1] "factor" 
> class(pred12) 
[1] "factor" 

这里是我的问题开始的地方：

> pred13 <- rbind(pred11, pred12) 
> class(pred13) 
[1] "matrix" 

有2个问题。首先，它将0和1的值更改为1和2，然后它会创建一个巨大的矩阵，它会消耗我所有的记忆。我试过用as.numeric(),data.frame()等搞乱，但不能把它仅仅结合2个50k因子到1个100k之中。有什么建议么？

Answer 1

rbind将在您的情况下创建2 x 50000矩阵，这不是您想要的。 c是将2个向量组合在一个更长的向量中的正确函数。当您对因子使用rbind或c时，它将使用映射到级别的基础整数。一般来说，你需要为一个字符重构之前结合：

x1 <- factor(sample(0:1,10,replace=T)) 
x2 <- factor(sample(0:1,10,replace=T)) 

factor(c(as.character(x1),as.character(x2))) 
[1] 1 1 1 0 1 1 0 1 0 0 0 1 1 1 1 1 1 0 0 0 
Levels: 0 1 

Answer 2

@詹姆斯提出的一种方式，我会与另一个（短）凑钱：

set.seed(42) 
x1 <- factor(sample(0:1,10,replace=T)) 
x2 <- factor(sample(0:1,10,replace=T)) 

unlist(list(x1,x2)) 
# [1] 1 1 0 1 1 1 1 0 1 1 0 1 1 0 0 1 1 0 0 1 
#Levels: 0 1 

...这似乎是一个有点像魔术，但unlist对这个特殊目的的因素有特殊的支持！列表中的所有元素都必须是这个工作的因素。