r - 从稀疏向量列表创建稀疏矩阵

Question

我有一个稀疏向量列表(在 R 中)。我需要将此列表转换为稀疏矩阵。
通过 for 循环完成需要很长时间。

sm<-spMatrix(length(tc2),n.col)
for(i in 1:length(tc2)){
    sm[i,]<-(tc2[i])[[1]];  
}

有没有更好的办法？

Answer 1

这是一个两步解决方案:

使用 lapply() 和 as(..., "sparseMatrix") 将 sparseVectors 列表转换为一列 sparseMatrices 的列表。

使用 do.call() 和 cBind() 将 稀疏矩阵 组合到单个 稀疏矩阵 中。

require(Matrix)

# Create a list of sparseVectors
ss <- as(c(0,0,3, 3.2, 0,0,0,-3), "sparseVector")
l <- replicate(3, ss)

# Combine the sparseVectors into a single sparseMatrix
l <- lapply(l, as, "sparseMatrix")
do.call(cBind, l)

# 8 x 3 sparse Matrix of class "dgCMatrix"
#                    
# [1,]  .    .    .  
# [2,]  .    .    .  
# [3,]  3.0  3.0  3.0
# [4,]  3.2  3.2  3.2
# [5,]  .    .    .  
# [6,]  .    .    .  
# [7,]  .    .    .  
# [8,] -3.0 -3.0 -3.0