r - 如何在 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
}

score 12 · Accepted Answer

不需要循环（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)

1 回答 1