如何创建这样的矩阵？

Question

给定从1到12的数字，是否有任何现有的函数可以创建下面的矩阵，并在这里选择指定类似size的内容？我只能考虑使用by.column创建每个矩阵，并使用rbind将它们绑定在一起。有更干净的选择吗？

m <- matrix(1:12, ncol=3, byrow=TRUE)

     [,1] [,2] [,3]
[1,]    1    2    3
[2,]    4    5    6
[3,]    7    8    9
[4,]   10   11   12

期望产出：

     [,1] [,2] [,3]
[1,]    1    3    5
[2,]    2    4    6
[3,]    7    9   11
[4,]    8   10   12

​

​

Answer 1

也许这更简洁(考虑到矩阵，而不是向量，因为您没有指定列数)：

m <- matrix(1:12, ncol=3, byrow=TRUE)

size <- 2
cols <- ncol(m)
m2 <- c(apply(m, 1, c))

do.call(rbind, lapply(split(m2, rep(seq_len(length(m2) /(size*cols)), each = size*cols)), matrix, nrow = size))

##      [,1] [,2] [,3]
## [1,]    1    3    5
## [2,]    2    4    6
## [3,]    7    9   11
## [4,]    8   10   12

Answer 2

我认为aperm()在这里是有用的

mymat<-function(size, ncol=3, start=1, end=12) {
    v <- start:end
    stopifnot(length(v)%%ncol==0, length(v)%%size==0)

    a <- array(v, dim=c(length(v)/ncol/size, ncol, size))
    matrix(aperm(a, c(1,3,2)), ncol=ncol)
}

mymat(2)
#      [,1] [,2] [,3]
# [1,]    1    3    5
# [2,]    2    4    6
# [3,]    7    9   11
# [4,]    8   10   12