R中的条件矩阵或组合

Question

我有 7 个向量：

vector1 = c(9,8,7,6,5)
vector2 = c(10,20,30)
vector3=c(19,27,34,40,45)
vector4=c(29,37,44)
vector5=c(39,47)
vector6=c(28,36)
vector7=c(13,42)
vector=c(vector1,vector2,vector3,vector4,vector5,vector6,vector7)

co = expand.grid(vector,vector,vector,vector,vector,vector)

我需要一个上述向量的 6 变量组合表，但每个向量中的值在该表的每一行中不应重复超过 2 次，并且每一行中不应出现相同的数字。例如：

V1 V1 V2 V3 V4 V7

V1 V3 V4 V5 V6 V7

我该怎么做？

V1 = c (9,8,7,6,5)
V2 = c (10,20,30)
V3 = c (19,27,34,40,45)
V4 = c (29,37,44)
V5 = c (39.47)
V6 = c (28.36)
V7 = c (13,25,42)

我有 7 个向量组。我想将它们与 6 个变量结合起来列出。这 7 个组中的每一行的成员不得超过 2 人。

作为第二个条件，

x1 = 1: 9
x2 = 10:19
x3 = 20:29
x4 = 30: 39
x5 = 40:49

我有如上所示的组。组合列表中每一行的 x1、x2、x3、x4 或 x5 组范围内的成员不应超过 3 个。

例如：在 2 3 5 7 19 25 的组合中，x1 成员的数量不应在组合列表中，因为它们超过 3。

Answer 1

这是一个想法。这不是一个很好的答案，因为我没有完全测试它，但我认为它应该可以工作。它的效率相当低，而且我没有耐心让它运行足够长的时间来完成。

y = rep(vector, 2)
result = unique(
  lapply(
    Filter(f = function(x) !anyDuplicated(x),
     combn(y, m = 6, simplify = FALSE)
    ),
  sort)
)

说明：将所有输入复制到一个向量中。生成选择 6 个元素的所有组合。过滤掉任何重复的结果。对它们进行排序，使其顺序一致。保留唯一的组合。

这是低效的，因为第一步将生成choose(length(y), 6) ~= 7M 组合，然后我们必须减少到（我认为）166,638 个最终组合。但这是我能想到的对您的要求进行编码的最简单方法。