如何在R中将矩阵调整为n列，使每n行移至新列？

你遇到的问题核心在于R的matrix()函数默认是按列填充元素的，而你需要的是按行填充来达到“每n行移至新列”的效果，下面直接给你解决方案和详细解释：

针对你的示例的直接解决方法 #

你只需要在重新构造矩阵时添加byrow=TRUE参数，指定按行填充元素：

# 原矩阵
mat <- matrix(rep(c(1,2),3),nrow=6)
# 按行填充构造目标矩阵
desired_mat <- matrix(mat, ncol=2, byrow=TRUE)
# 查看结果
desired_mat

运行后会得到你期望的输出：

[,1] [,2]
[1,]    1    2
[2,]    1    2
[3,]    1    2

原理解释 #

• 默认情况下，matrix(mat, ncol=2)会按列填充：它会把原向量的前3个元素（1,2,1）放到第一列，后3个元素（2,1,2）放到第二列，这就是你之前得到不符合预期结果的原因。
• 添加byrow=TRUE后，函数会按行填充：把原向量的前2个元素作为第一行，接下来2个作为第二行，最后2个作为第三行，完美匹配你的需求。

通用化解决方案 #

如果你有一个k行1列的矩阵，想要将其转换为k/n行n列的矩阵（要求n能整除k），只需要把上述代码中的ncol=2替换为你需要的列数n即可：

# 假设你需要调整为n列
n <- 3
# 原矩阵（示例为9行1列）
mat <- matrix(rep(c(1,2,3),3),nrow=9)
# 生成目标矩阵
desired_mat <- matrix(mat, ncol=n, byrow=TRUE)

另一种可选方法（分组转置） #

如果你想通过分组的方式实现，也可以用split()和do.call()组合：

n <- 2
# 将原矩阵元素按每n个一组拆分
groups <- split(mat, ceiling(seq_along(mat)/n))
# 将各组绑定为行
desired_mat <- do.call(rbind, groups)

内容的提问来源于stack exchange，提问作者Antsushi