r - 如何在 R 中将矩阵分成更小的矩阵？

Question

我有以下矩阵

2    4    1
6    32   1
4    2    1
5    3    2
4    2    2

我想根据第三列制作以下两个矩阵
第一的

2    4
6    32
4    2

第二

5    3
4    2

我能想出的最好的，但我收到一个错误

x <- cbind(mat[,1], mat[,2]) if mat[,3]=1

y <- cbind(mat[,1], mat[,2]) if mat[,3]=2

Answer 1

如 mat是你的矩阵:

mat <- matrix(1:15,ncol=3)
mat[,3] <- c(1,1,1,2,2)
> mat
     [,1] [,2] [,3]
[1,]    1    6    1
[2,]    2    7    1
[3,]    3    8    1
[4,]    4    9    2
[5,]    5   10    2

那么你可以使用 split :

> lapply( split( mat[,1:2], mat[,3] ), matrix, ncol=2)
$`1`
     [,1] [,2]
[1,]    1    6
[2,]    2    7
[3,]    3    8

$`2`
     [,1] [,2]
[1,]    4    9
[2,]    5   10

lapply的 matrix是必要的，因为 split 会删除使向量成为矩阵的属性，因此您需要重新添加它们。