用交替列组合矩阵

Question

我正在寻找一种通用的方法来组合两个矩阵，以便两个初始矩阵中的列在新矩阵中交替出现

col1m1。。。col1m2。。。col2m1。。。二氧化碳。。。col3m1。。。col3m2。。。。。。

例如：

matrix.odd  <- matrix(c(rep(1,3),rep(3,3),rep(5,3)),nrow=3,ncol=3)
matrix.even <- matrix(c(rep(2,3),rep(4,3),rep(6,3)),nrow=3,ncol=3)
# would look like
matrix.combined <- matrix(c(rep(1,3),rep(2,3),rep(3,3),rep(4,3),rep(5,3),rep(6,3)),
                          nrow=3,ncol=6)

我正在寻找一种通用的方法，因为我将有多于3列的矩阵组合。我尝试了一些for循环和一些if语句，但对我来说，它们并没有真正结合在一起。将矩阵与洗牌和交替相结合的搜索也没有被证明是有效的。有什么想法吗？

Answer 1

alternate.cols <- function(m1, m2) {
  cbind(m1, m2)[, order(c(seq(ncol(m1)), seq(ncol(m2))))]
}

identical(matrix.combined, alternate.cols(matrix.odd, matrix.even))
# [1] TRUE

如果m1和m2具有不同的列数，那么哪一项也是正确的（主观的）：

alternate.cols(matrix.odd, matrix.even[, -3])
#      [,1] [,2] [,3] [,4] [,5]
# [1,]    1    2    3    4    5
# [2,]    1    2    3    4    5
# [3,]    1    2    3    4    5

很容易推广到任意数量的矩阵：

alternate.cols <- function(...) {
  l <- list(...)
  m <- do.call(cbind, l)
  i <- order(sequence(sapply(l, ncol)))
  m[, i]
}

Answer 2

rows.combined <- nrow(matrix.odd) 
cols.combined <- ncol(matrix.odd) + ncol(matrix.even)
matrix.combined <- matrix(NA, nrow=rows.combined, ncol=cols.combined)
matrix.combined[, seq(1, cols.combined, 2)] <- matrix.odd
matrix.combined[, seq(2, cols.combined, 2)] <- matrix.even

Answer 3

像这样的Smth应该做到：

m <- cbind(matrix.odd, matrix.even)                   # combine
m <- m[, c(matrix(1:ncol(m), nrow = 2, byrow = T))]   # then reorder

另一个有趣的选择：

matrix(rbind(matrix.odd, matrix.even), nrow = nrow(matrix.odd))

要玩多矩阵游戏：

weave = function(...) {
  l = list(...)
  matrix(do.call(rbind, l), nrow = nrow(l[[1]]))
}