如何在R语言中按特定规则将矩阵转换为1×16行矩阵？

原矩阵与目标需求 #

原4x4矩阵定义及输出：

m <- matrix(1:16, nrow = 4)
m
# 输出：
#      [,1] [,2] [,3] [,4]
# [1,]    1    5    9   13
# [2,]    2    6   10   14
# [3,]    3    7   11   15
# [4,]    4    8   12   16

需要转换为1行16列的矩阵，元素顺序为：1 5 2 6 3 7 4 8 9 13 10 14 11 15 12 16

错误操作分析 #

你之前的代码直接将矩阵按行转为1行后再转置扁平化，得到的是原矩阵按行遍历的顺序（1 2 3 4 5 6 7 8...），不符合目标的分组排列逻辑。

正确实现方法 #

方法1：分组合并（直观易懂）

核心思路是把原矩阵拆分为前2列、后2列两个组，每组内按行提取元素，最后拼接成1行矩阵：

# 拆分矩阵为两组列
group1 <- m[, 1:2]
group2 <- m[, 3:4]

# 每组按行提取元素（转置后扁平化）
vec1 <- as.vector(t(group1))  # 得到：1 5 2 6 3 7 4 8
vec2 <- as.vector(t(group2))  # 得到：9 13 10 14 11 15 12 16

# 拼接并转为1行矩阵
result <- matrix(c(vec1, vec2), nrow = 1)
result

运行后输出：

[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14] [,15] [,16]
[1,]    1    5    2    6    3    7    4    8    9    13    10    14    11    15    12    16

方法2：直接构造索引（简洁高效）

如果需要更通用的写法，可以直接构造元素的索引顺序，一次性提取并转为矩阵：

# 构造目标顺序的元素索引
idx <- c(1,5,2,6,3,7,4,8,9,13,10,14,11,15,12,16)
# 或者用动态生成索引（适合任意行数的类似需求）
idx <- c(sapply(1:4, function(i) c(i, i+4)), sapply(1:4, function(i) c(i+8, i+12)))

# 提取元素并转为1行矩阵
result <- matrix(m[idx], nrow = 1)

核心逻辑说明 #

目标顺序的本质是：先依次取每一行的前两个元素，再依次取每一行的后两个元素，而非常规的按行/按列扁平化。通过分组合并或索引构造，就能精准匹配这个顺序。

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