大きなリストから、0と1のリストを作る

Question

私はこのようになり、非常に大きなリストを持っている：

と、そのリストを作成する必要がありますが次のようになります。

|------|------|------|------| 
| 1 | 1 | 0 | 0 | 
|------|------|------|------| 
| 2 | 0 | 1 | 0 | 
|------|------|------|------| 
| 3 | 0 | 0 | 1 | 
|------|------|------|------| 
| 3 | 0 | 0 | 1 | 
|------|------|------|------| 

私は、ループを使用してみましたが、この方法はここで詳しく説明：

Create mutually exclusive dummy variables from categorical variable in R

しかし、データセットが大きすぎるため、私はメモリの制約があります。

分割、適用、結合の手法を考えていますが、目的の結果を得ることができません。

大変助かりました！

Answer 1

ここ

vars = c(1, 2, 3, 3) 
data.frame(vars, 
      replace(matrix(rep(0, max(vars) * length(vars)), nrow = length(vars)), 
        cbind(seq_along(vars), vars), 
        1)) 
# vars X1 X2 X3 
#1 1 1 0 0 
#2 2 0 1 0 
#3 3 0 0 1 
#4 3 0 0 1 

Answer 2

はいくつかの方法である：与える

x <- c(1, 2, 3, 3) 
outer(x, unique(x), "==") + 0 

：

1）外側これはマトリックス結果を与える

 [,1] [,2] [,3] 
[1,] 1 0 0 
[2,] 0 1 0 
[3,] 0 0 1 
[4,] 0 0 1 

2）model.matrixこれはまた、行列結果を与える。

fx <- factor(x) 
model.matrix(~ fx + 0) 

与える：

fx1 fx2 fx3 
1 1 0 0 
2 0 1 0 
3 0 0 1 
4 0 0 1 
attr(,"assign") 
[1] 1 1 1 
attr(,"contrasts") 
attr(,"contrasts")$fx 
[1] "contr.treatment" 

3）は、ゼロのストレージを使用しないので、これは結果を疎行列内部表現を使用を疎行列。与え

library(Matrix) 

# ok for this example 
sparseMatrix(seq_along(x), x) 

# but if x does not contain sequence numbers use this instead 
sparseMatrix(seq_along(x), as.numeric(factor(x))) 

：

4 x 3 sparse Matrix of class "dgCMatrix" 

    [1,] 1 . . 
    [2,] . 1 . 
    [3,] . . 1 
    [4,] . . 1