从树列表到R中的矩阵

debugcn 发表于 Dev

奥列格·梅尔尼科夫（Oleg Melnikov）

抱歉，如果这个问题太基本了。什么是转换的有效方法/想法（用R表示）

list(c(1), c(1,2), c(1,2,3), c(1,2,3,4))

转换为方阵形式

     [,1] [,2] [,3] [,4]
[1,]    1   NA   NA   NA
[2,]    1    2   NA   NA
[3,]    1    2    3   NA
[4,]    1    2    3    4

我想有一种快速的动态方法可以添加正确数量的NA值，然后转换为矩阵。

自然，（正方形）矩阵的大小可以更改。

在此先感谢您的时间。

丰富的划痕

您可以使用

## create the list
x <- Map(":", 1, 1:4)

ml <- max(lengths(x))
do.call(rbind, lapply(x, "length<-", ml))
#      [,1] [,2] [,3] [,4]
# [1,]    1   NA   NA   NA
# [2,]    1    2   NA   NA
# [3,]    1    2    3   NA
# [4,]    1    2    3    4

或者你可以做

library(data.table)
as.matrix(unname(rbindlist(lapply(x, as.data.frame.list), fill = TRUE)))
#      [,1] [,2] [,3] [,4]
# [1,]    1   NA   NA   NA
# [2,]    1    2   NA   NA
# [3,]    1    2    3   NA
# [4,]    1    2    3    4

还有一个很好的措施...脱颖而出！

m <- stringi::stri_list2matrix(x, byrow = TRUE)
mode(m) <- "numeric"
m
#      [,1] [,2] [,3] [,4]
# [1,]    1   NA   NA   NA
# [2,]    1    2   NA   NA
# [3,]    1    2    3   NA
# [4,]    1    2    3    4

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。