我在本网站的研究中看到过类似的问题,但不是这个确切的问题(大多数答案都涉及从列表创建稀疏矩阵)。
我有一个相邻多边形列表,但希望将其转换为完整矩阵。我可以用嵌套的 for 循环笨拙地做到这一点,但我试图通过减少依赖这些来改进我的编码。所以本质上,我想从中得到:
my_list <- list("1" = c(2, 3),
"2" = 1,
"3" = 1)
看起来像这样:
# [,1] [,2] [,3]
#[1,] 0 1 1
#[2,] 1 0 0
#[3,] 1 0 0
不诉诸于此:
for(i in 1:3{
for(j in 1:3{
[look to list to see if there is a value corresponding to (i, j),
if so insert 1, if not, zero]
}
}
非常感谢您抽出宝贵时间。
答案 0 :(得分:5)
你可以试试sapply
和tabulate
nbins <- max(unlist(my_list)) # 3
sapply(my_list, function(x) tabulate(x, nbins = nbins))
# [,1] [,2] [,3]
#[1,] 0 1 1
#[2,] 1 0 0
#[3,] 1 0 0
可以在没有匿名函数的情况下编写,并进行安全检查
vapply(my_list, tabulate, nbins = nbins, FUN.VALUE = integer(nbins))
答案 1 :(得分:2)
您可以使用 sapply
:
n <- 1:max(unlist(my_list))
sapply(my_list, function(x) +(n %in% x))
# [,1] [,2] [,3]
#[1,] 0 1 1
#[2,] 1 0 0
#[3,] 1 0 0