我需要根据符号组合（+ - ）对矩阵值进行分组

Question

我是R编程的新手。对于我的课程工作，我使用R实现推荐系统。我已经将数据表转换为矩阵，然后使用irlba函数处理SVD = udv。现在我有以下矩阵u。

现在我需要根据他们的标志对它们进行分类。例如，这里，前三个是（ - ， - ）的组合，然后是（ - ， - ），所以它们都必须在同一个社区。然后第4和第5是（ - ，+），他们在同一个社区，依此类推。

Answer 1

您可以在每列上使用sign并将其粘贴到组合字符串中。然后将矩阵分成每个组合

set.seed(0L)
mat <- matrix(rnorm(20), ncol=2)
split(data.frame(mat), apply(mat, 1, function(x) paste(sign(x), collapse=", ")))
#> $`-1, -1`
#>           X1         X2
#> 2 -0.3262334 -0.7990092
#> 6 -1.5399500 -0.4115108
#> 8 -0.2947204 -0.8919211
#> 
#> $`-1, 1`
#>             X1        X2
#> 7 -0.928567035 0.2522234
#> 9 -0.005767173 0.4356833
#> 
#> $`1, -1`
#>           X1         X2
#> 3  1.3297993 -1.1476570
#> 4  1.2724293 -0.2894616
#> 5  0.4146414 -0.2992151
#> 10 2.4046534 -1.2375384
#> 
#> $`1, 1`
#>         X1        X2
#> 1 1.262954 0.7635935

Answer 2

另一种选择是

lapply(split(seq_len(nrow(mat)), 
    interaction(as.data.frame(sign(mat)))), function(i) mat[i,, drop = FALSE])