将多个参数传递给R中的匿名函数

Question

为什么这不起作用？或者只是R的工作方式？

感谢 JJ

a <- c(1,2,3) 
    b <- 5 
    lapply(a, function(x) print(x)) # works 

    lapply(a, function(x,b) print(b)) # doesn't work. 

    I get -- 
    Error in FUN(c(1, 2, 3)[[1L]], ...) : 
     argument "b" is missing, with no default 

Answer 1

你可以尝试把A和B在列表如下：

lapply(list(a, b), function(x) print(b)) 

或指定argumant传递b键为：

lapply(a, function(x, y=b) print(y)) 

但我不确定你在做什么。

Answer 2

lapply只传递一个参数，因为它只被设计为有一个参数不同。如果你只是想一起传递额外的参数，把它们作为附加选项lapply：

lapply(a, function(x,y) print(y), y=b) 
[1] 5 
[1] 5 
[1] 5 
[[1]] 
[1] 5 

[[2]] 
[1] 5 

[[3]] 
[1] 5 

从lapply帮助文件：

...可选参数乐趣。

如果您希望将多个不同的参数传递给您的函数，请参阅mapply。