逐行交替组合矩阵

Question

给定两个矩阵：

test1 <- matrix(1:5,ncol=1)

test2 <- matrix(6:10,ncol=1)

我想以交替的方式将它们逐行组合成一个矩阵，意思是：

expected_output <- matrix(c(1,6,2,7,3,8,4,9,5,10),ncol=1)

或更直观：

我已经创建了一个空矩阵，其长度是 test1 的两倍，但我不知道如何逐行添加每个值。 rbind()只是添加整个矩阵。

Answer 1

用c + t + cbind

c(t(cbind(test1, test2)))
#[1]  1  6  2  7  3  8  4  9  5 10

矩阵形式：

matrix(t(cbind(test1, test2)))

Answer 2

假设您的矩阵具有指定的行数，这将按照您的要求进行。 您可以相应地调整网格。

test1 <- matrix(1:5,ncol=1)
test2 <- matrix(6:10,ncol=1)
expected_output <- matrix(c(1,6,2,7,3,8,4,9,5,10),ncol=1)

out <- matrix(NA, nrow = nrow(test1) + nrow(test2), ncol = 1)
grid1 <- seq(1, 9, by = 2)
grid2 <- seq(2, 10, by = 2)
out[ grid1, ] = test1
out[ grid2, ] = test2
out
#>       [,1]
#>  [1,]    1
#>  [2,]    6
#>  [3,]    2
#>  [4,]    7
#>  [5,]    3
#>  [6,]    8
#>  [7,]    4
#>  [8,]    9
#>  [9,]    5
#> [10,]   10

^{由reprex package (v2.0.1) 创建于 2022-10-07}

Answer 3

c(mapply(append, test1, test2))
[1]  1  6  2  7  3  8  4  9  5 10

如果需要矩阵输出，请使用

as.matrix(c(mapply(append, test1, test2)), ncol = 1)
      [,1]
 [1,]    1
 [2,]    6
 [3,]    2
 [4,]    7
 [5,]    3
 [6,]    8
 [7,]    4
 [8,]    9
 [9,]    5
[10,]   10

Answer 4

您可以使用如下order （假设test1和test2的长度始终相同）

> c(test1, test2)[order(rep(seq_along(test1), 2))]
 [1]  1  6  2  7  3  8  4  9  5 10

Answer 5

使用奇数和偶数序列，分别为2*n - 1和2*n创建索引向量，并将test*矩阵分配给结果矩阵 rowws。

test1 <- matrix(1:5,ncol=1)
test2 <- matrix(6:10,ncol=1)

n1 <- nrow(test1)
n2 <- nrow(test2)

expected_output <- matrix(nrow =  n1 + n2, ncol = 1)

i1 <- 2*seq_len(n1) - 1
i2 <- 2*seq_len(n2)
expected_output[i1,] <- test1
expected_output[i2,] <- test2

expected_output
#>       [,1]
#>  [1,]    1
#>  [2,]    6
#>  [3,]    2
#>  [4,]    7
#>  [5,]    3
#>  [6,]    8
#>  [7,]    4
#>  [8,]    9
#>  [9,]    5
#> [10,]   10

^{创建于 2022-10-07，使用reprex v2.0.2}

Answer 6

另外的选择。 首先将一个 id 添加到您的输入矩阵。

test1 <- matrix(1:5,ncol=1) |> 
  cbind(id = 1:5)

test2 <- matrix(6:10,ncol=1) |> 
  cbind(id = 1:5)

然后组合。

test1 |> 
  rbind(test2) |> 
  (\(x) (x[order(x[,2], decreasing = FALSE), 1]))() |> 
  as.matrix()

这使：

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