使用apply将两个矩阵转换为一个列表

Question

我有两个矩阵，列数相同，但行数不同：

a <- cbind(runif(5), runif(5))
b <- cbind(runif(8), runif(8))

我想将它们关联到同一个列表中，以便a和b的第一列相互关联，依此类推：

my_result <- list(list(a[,1], b[,1]), list(a[,2], b[,2]))

所以结果看起来像这样：

> print(my_result)
[[1]]
[[1]][[1]]
[1] 0.9440956 0.7259602 0.7804068 0.7115368 0.2771190

[[1]][[2]]
[1] 0.4155642 0.1535414 0.6983123 0.7578231 0.2126765 0.6753884 0.8160817
[8] 0.6548915

[[2]]
[[2]][[1]]
[1] 0.7343330 0.7751599 0.4463870 0.6926663 0.9692621

[[2]][[2]]
[1] 0.5708726 0.1234482 0.2875474 0.4760349 0.2027653 0.5142006 0.4788264
[8] 0.7935544

如果没有for循环，我无法想象如何做到这一点，但我很确定在这里可以使用一些*pply魔法。

任何指示都会非常感激。

Answer 1

我不确定您正在寻找的解决方案有多普遍（任意数量的矩阵，传递矩阵列表的能力等），但这适用于您的具体示例：

lapply(1:2,function(i){list(a[,i],b[,i])})