同时循环遍历 R 中的两个列表

Question

我编写了一个带有三个参数的函数：

create.template <- function(t.list, x, y){
    temp <- cbind(get(t.list[x]), get(t.list[y]), NA)
}

此函数的输出是一个具有 11 列和 17 行的 data.frame。

现在我想用两个列表在函数上创建一个循环，一个用于 x，一个用于 y。从而

x.list <- list(1,2,3)
y.list <- list(4,5,6)

在最后一步，我想建立类似

for (x in x.list and y in y.list){
   create.template(t.list, x, y)
}

并可能在一个最终数据帧中按行组合生成的数据帧（3 个数据帧，每个数据帧 11 列）。

我知道您可以在 Python 中使用 zip() 函数执行此操作，然后通过 append() 和 concatenate() 轻松附加结果，但到目前为止我还没有在 R 中找到等效项。任何帮助表示高度赞赏！

Answer 1

mget我们可以使用 、Reduce或do.call来cbind获取list多个对象的值vectors

Reduce(cbind, c(mget(ls(pattern = "\\.list")), NA))

或者

do.call(cbind, c(mget(c("x.list", "y.list")), NA))