r - 通过交替列组合矩阵

Question

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

col1m1 ... col1m2 ... col2m1 ... col2m2 ... 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

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