如何在R中迭代地找到集合中所有可能的子集？

Question

所以我知道以下命令会在列表中存储所需长度y的所有可能组合,其中y < j:

 lapply(y, function(x) combn(j,x))

但是我不希望它们全部存储在列表中,因为稍后我将只访问它们一次,因此将它们存储在内存中效率不高.有没有办法让我可以在某种循环或其他东西中生成每个组合,然后在我完成计算后,它会给我下一个组合？所以基本上我想迭代地生成组合而不是先存储它们.

所以在伪代码中,我想拥有的是:

#loop that will generate each possible combination one by one
loop{
  operation that uses combination
}

Answer 1

不需要循环(lapply或其他):

combn(1:4,2)
#      [,1] [,2] [,3] [,4] [,5] [,6]
# [1,]    1    1    1    2    2    3
# [2,]    2    3    4    3    4    4

计算组合总和的示例:

combn(1:4,2,FUN=sum)
# [1] 3 4 5 5 6 7

具有用户定义函数的示例:

x <- 11:14
combn(1:4,2,FUN=function(i,a) sum(a[i]),a=x)
#[1] 23 24 25 25 26 27

这里(在匿名函数中)i是用作索引的组合,参数a是我传递的向量x.

与用户定义的命名函数相同:

fun <- function(i,a) sum(a[i])
combn(1:4,2,FUN=fun,a=x)