r - 逆 cbind() 函数 R

Question

假设我有一个矩阵列表:

matrix <- matrix(1:4, nrow = 2, ncol = 2)
list <- list(matrix, matrix, matrix)

还有一个由函数cbind()创建的矩阵:

long.matrix <- do.call(cbind, list)

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

我想反转过程以从 long.matrix 中获取矩阵的 list。

我可以使用 for 循环手动完成，但我正在寻找类似的东西: function(long.matrix, 3) 我认为应该存在。有这种事吗？

Answer 1

暴力破解:

f <- function(long.matrix, num)
           lapply(split(long.matrix, 
                        rep(seq(num), each=(ncol(long.matrix)/num)*nrow(long.matrix))), 
                  function(x) matrix(x, nrow=nrow(long.matrix))
           )

f(long.matrix, 3)
## $`1`
##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4
## 
## $`2`
##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4
## 
## $`3`
##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4

rep 为 split 构建类别，以拆分数据。由于 R 是列优先的，这里我们取前四个、第二个四个、第三个四个条目。

填写示例 long.matrix 和 3 的当前维度的值，函数简化为:

lapply(split(long.matrix, rep(seq(3), each=4)), function(x) matrix(x, nrow=2))

注意:

(r <- rep(seq(3), each=4) )
## [1] 1 1 1 1 2 2 2 2 3 3 3 3
split(long.matrix, r)
## $`1`
## [1] 1 2 3 4
## 
## $`2`
## [1] 1 2 3 4
## 
## $`3`
## [1] 1 2 3 4

然后将其中的每一个传递给 matrix 以获得所需的格式。