R: Danh sách các chỉ số để ma trận nhị phân

Question

Nói rằng tôi có một danh sách các chỉ số, như:

l <- list(c(1,2,3), c(1), c(1,5), c(2, 3, 5)) 

nào xác định các yếu tố khác không trong một ma trận, như:

(m <- matrix(c(1,1,1,0,0, 1,0,0,0,0, 1,0,0,0,5, 0,1,1,0,1), nrow=4, byrow=TRUE)) 

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

là gì cách nhanh nhất, sử dụng R, để thực hiện m từ l, cho rằng ma trận là rất lớn, nói 50.000 hàng và 2000 cột?

Answer 1

Hãy thử

d1 <- stack(setNames(l, seq_along(l))) 
library(Matrix) 
m1 <- sparseMatrix(as.numeric(d1[,2]), d1[,1], x=1) 
as.matrix(m1) 
#  [,1] [,2] [,3] [,4] [,5] 
#[1,] 1 1 1 0 0 
#[2,] 1 0 0 0 0 
#[3,] 1 0 0 0 1 
#[4,] 0 1 1 0 1 

Hoặc thay vì stack, chúng ta có thể sử dụng melt

library(reshape2) 
d2 <- melt(l) 
sparseMatrix(d2[,2], d2[,1],x=1) 

Hoặc chỉ sử dụng base R

Un1 <- unlist(l) 
m1 <- matrix(0, nrow=length(l), ncol=max(Un1)) 
m1[cbind(as.numeric(d1$ind), d1$values)] <- 1 
m1