R 中的元素绑定

Question

我想要一个函数 f ，使得

(outer(X, Y, f))[i, j] 是第 i 个元素的并排串联X 和 Y 的第 j 个元素，类似于 c(X[i], Y[j]) 或具有类似的结构。

此外，我希望这个结果能够重复该过程，这样我们就可以得到

(outer(outer(X, Y, f), Z, f))[i, j, k ] 是 X 的第 i 个元素、Y 的第 j 个元素和 Z 的第 k 个元素的并排串联，即相等或具有类似的结构其中，c(X[i], Y[j], Z[k])。

最终我的目标是定义一个这样的函数：

foo <- function(a.list) {
  Reduce(function(x, y) outer(x, y, f), a.list)
}

这​​样，如果

A <- foo(list(v_1, ..., v_p))

dim(A) 将是 c(length(v_1), ..., length(v_p)) code>，以及

A[i_1, ..., i_p] == c(v_1[i_1], ..., v_p[i_p])

所有有效索引集 (i_1, ..., i_p)。

例如：（

> foo(list(LETTERS[1:2], c(3, 4, 5), letters[6:7]))
, , 1

               [,1]           [,2]           [,3]
[1,] c("A", 3, "f") c("A", 4, "f") c("A", 5, "f")
[2,] c("B", 3, "f") c("B", 4, "f") c("B", 5, "f")

, , 2

               [,1]           [,2]           [,3]
[1,] c("A", 3, "g") c("A", 4, "g") c("A", 5, "g")
[2,] c("B", 3, "g") c("B", 4, "g") c("B", 5, "g")

注意：我不知道像上面示例中所示的结果这样的向量数组在 R 中是否有效/可能，但我使用像 c( "A", 3, "f") 来建议'一些类似向量的对象，其元素是 "A", 3, 和 "f"'。)

我可以用 f 来实现这个目的吗？

谢谢！

Answer 1

函数 Vectorize() 是您的朋友：将 f 定义为：

f <- Vectorize( function(a,b) c(as.list(a), as.list(b)), SIMPLIFY = FALSE )

上面对 foo 的定义）：

z <- foo(list(LETTERS[1:2], c(3, 4, 5), letters[6:7]))

然后您可以执行以下操作（使用 例如，您可以检查条目是否与上面的示例匹配：

> z
, , 1

     [,1]   [,2]   [,3]  
[1,] List,3 List,3 List,3
[2,] List,3 List,3 List,3

, , 2

     [,1]   [,2]   [,3]  
[1,] List,3 List,3 List,3
[2,] List,3 List,3 List,3

> z[2,2,2]
[[1]]
[[1]][[1]]
[1] "B"

[[1]][[2]]
[1] 4

[[1]][[3]]
[1] "g"