基于true/false函数的数据框中的R组行对

Question

我需要使用自定义函数作为分组条件从我的数据框创建行组。该函数将比较两对行，如果这些行应该组合在一起，则返回true/false。

在一个实例中的数据集，如：

id field  code1 code2 
1 textField1 055 066 
2 textField2 100 120 
3 textField3 300 350 
4 textField4 800 450 
5 textField5 460 900 
6 textField6 490 700 

         ... 

的功能通过对检查行字段之间一定的规则（函数（ROW1，ROW2）），并返回TRUE/FALSE如果这些行应一起。

我需要将该函数应用于数据框中的所有posible对，并生成一个列表（或其他结构），其中所有ID都匹配在一起。该功能适用​​于每一对

一种方式显示在this answer：

lapply(seq_len(nrow(df) - 1), 
     function(i){ 
     customFunction(df[i,], df[i+1,]) 
     }) 

但我不能想办法到组，进行了TRUE作为结果

编辑行：再阅读我的问题，似乎需要一个例子：

如果我们创建了一个包含所有可能组合的矩阵，结果将为：

个

 [,1] [,2] [,3] [,4] [,5] [,6] 
[1,] TRUE FALSE FALSE FALSE FALSE FALSE 
[2,] FALSE TRUE TRUE TRUE FALSE FALSE 
[3,] FALSE TRUE TRUE FALSE FALSE FALSE 
[4,] FALSE TRUE FALSE TRUE FALSE FALSE 
[5,] FALSE FALSE FALSE FALSE TRUE TRUE 
[6,] FALSE FALSE FALSE FALSE TRUE TRUE 

，得到的组会，那么：

1 
2,3,4 
5,6 

Answer 1

这里是一个函数，它您指定的内容：

mx <- matrix(c(TRUE,FALSE,FALSE,FALSE,FALSE,FALSE, 
FALSE,TRUE,TRUE,TRUE,FALSE,FALSE, 
FALSE,TRUE,TRUE,FALSE,FALSE,FALSE, 
FALSE,TRUE,FALSE,TRUE,FALSE,FALSE, 
FALSE,FALSE,FALSE,FALSE,TRUE,TRUE, 
FALSE,FALSE,FALSE,FALSE,TRUE,TRUE),6) 


groupings <- function(mx){ 

    out <- list() 
    while(dim(mx)[1]){ 
     # get the groups that match the first column 
     g = which(mx[,1]) 

     # expand the selection to any columns for which 
     # there is match in the first row 
     (expansion = which(apply(cbind(mx[,g]),1,any))) 
     while(length(expansion) > length(g)){ 
      g = expansion 

      # expand the selection to any columns for which 
      # there is match to the current group 
      expansion = which(apply(cbind(mx[,g]),1,any)) 
     } 

     out <- c(out,list(g)) 
     mx <- mx[-g,-g] 
    } 
    return(out) 

} 

groupings(mx) 
#> [[1]] 
#> [1] 1 
#> 
#> [[2]] 
#> [1] 1 2 3 
#> 
#> [[3]] 
#> [1] 1 2