传递不同长度的列表参数给 R Function

Question

我有一个用户编写的 function，我希望能够将列表和单个参数 arguments 传递给它。 列表可以有不同的长度。 以下是一个简化的示例，其中我使用 expand.grid 组合列表并使用 map：

fake_dat <-  as.data.frame(matrix(c(1, 2, 3, 4), nrow = 2, byrow = TRUE))

one_lst <- c("a","b")
two_lst <- c("aa","bb")
all_lst <- expand.grid(one_lst, two_lst)

with(all_lst, Map(function(var1, var2, dat, x) {
  print(var1)
  print(var2)
  print(dat[[x]])
}, Var1, Var2, dat=fake_dat, x="V2"))

以这种方式使用它我得到以下错误：

Error in (function (cond) : 
error in evaluating the argument 'x' in selecting a method for function 'print': subscript out of bounds

但是，如果我将单个参数嵌入列表中，它似乎可以工作：

with(all_lst, Map(function(var1, var2, dat, x) {
  print(var1)
  print(var2)
  print(dat[[x]])
}, Var1, Var2, dat=list(fake_dat), x=list("V2")))

这是在我的场景中使用 map 的合适方法吗……或者是否有更好的方法来完成将一些列表（可能长度不同）和一些单个参数 arguments 传递给 function？

Answer 1

目前尚不清楚您要完成什么，但错误是因为fake_dat的长度 = 2（ data.frame中的列数），因此Map将这些列传递给 function。 当第一列通过时，“V2”出界。 这就是为什么用list()包装fake_dat可以解决错误——整个data.frame被传递给 function，因为list(fake_dat)的长度为 1。（用list()包装“V2”在这里什么都不做。）

with(all_lst, Map(function(var1, var2, dat, x) {
  print(var1)
  print(var2)
  print(dat[[x]])
}, Var1, Var2, dat=list(fake_dat), x="V2"))

注意，如果8828364450788的vector Map长度不同，则回收较短的arguments。