我在使用 R 进行工作,我的数据集是一个由矩阵列表组成的列表。主列表中的每个子列表都有两个相等维度的矩阵(10行 x 2列)。我想要将每个矩阵列表使用 rbind()
合并为单个矩阵(20行 x 2列)。但我不想将每个子列表合并为一个大型矩阵。我会尽力为此编写样本代码,但实际数据非常复杂,所以我会尽力。
> matrix_1 <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 9), nrow = 5, ncol = 2, byrow = TRUE)
> matrix_2 <- matrix(c(9, 8, 7, 6, 5, 4, 3, 2, 1), nrow = 5, ncol = 2, byrow = TRUE)
> matrix_3 <- matrix(c(101, 91, 81, 71, 61, 51, 41, 31, 21, 11), nrow = 5, ncol = 2, byrow = TRUE)
> matrix_4 <- matrix(c(22, 20, 19, 18, 17, 16, 15, 14, 13, 12), nrow = 5, ncol = 2, byrow = TRUE)
> sublist_1 <- list(matrix_1, matrix_2)
[[1]]
[,1] [,2]
[1,] 1 5
[2,] 2 6
[3,] 1 3
[4,] 7 4
[5,] 8 3
[[2]]
[,1] [,2]
[1,] 10 9
[2,] 8 7
[3,] 6 5
[4,] 4 3
[5,] 2 1
> sublist_2 <- list(matrix_3, matrix_4)
[[1]]
[,1] [,2]
[1,] 101 91
[2,] 81 71
[3,] 61 51
[4,] 41 31
[5,] 21 11
[[2]]
[,1] [,2]
[1,] 22 20
[2,] 19 18
[3,] 17 16
[4,] 15 14
[5,] 13 12
> mainlist <- list(sublist_1, sublist_2)
我真正想要的是将这个变成:
> rbind(sublist_1[[1]], sublist_1[[2]])
[,1] [,2]
[1,] 1 5
[2,] 2 6
[3,] 1 3
[4,] 7 4
[5,] 8 3
[6,] 10 9
[7,] 8 7
[8,] 6 5
[9,] 4 3
[10,] 2 1
应用到主列表中的所有子列表。
我尝试使用各种组合的lapply
,mapply
,map
,do.call
等使其工作,但要么我不知道正确的组合,要么我需要其他东西。
我还注意到rbind(sublist_1)
无法工作,这使得使用lapply
变得困难。必须编写为rbind(sublist_1[[1]], sublist_1[[2]])
。
非常感谢您的帮助。