在所有可能的组合上运行函数

Question

我有一个关于我尝试创建的函数的概念性问题。

我想创建一种网络图。为了做到这一点，我必须查看 6 个表格并将这些表格成对地相互比较。连接将基于一个变量，这对表的每一种可能组合都可能共享该变量。

我们称这个变量为 x。

例如，如果 table1$x1 = table2$x3，我想将变量 x1(对于 table1)放入第三个表中。一列中只有两个表之间的共享变量，第二列说明该变量在表 1 和表 2 之间共享。

我希望这种比较发生在表中所有可能的条目组合中。因此，我必须比较:

1&2, 1&3, 1&4, 1&5, 1&6

2&3, 2&4, 2&5, 2&6,

3&4, 3&5, 3&6,

4&5, 4&6,

5&6，

其中每个数字代表一个表号。

最后的输出将是一个表，说明一个表与另一个表之间的所有共享变量，以及哪两个表共享该变量。

感谢大家的宝贵时间和帮助。

Answer 1

这是一个示例，其中 f(c(i, j)) 计算 tables[[i]] 和 tables[[j] 的函数]，nms 是对名称的向量，最后一行为每个对计算 f。

tables <- lapply(1:6, "*", BOD) # list of 6 tables used as input
f <- function(ix) { 
  tab1 <- tables[[ix[1]]]
  tab2 <- tables[[ix[2]]]
  sum(abs(tab1 - tab2))
}
nms <- combn(seq_along(tables), 2, paste, collapse = "-")
setNames(combn(seq_along(tables), 2, f), nms)

给予:

1-2 1-3 1-4 1-5 1-6 2-3 2-4 2-5 2-6 3-4 3-5 3-6 4-5 4-6 5-6 
111 222 333 444 555 111 222 333 444 111 222 333 111 222 111