为每个元素使用不同的可选参数。

Question

下面的lapply将列表中的每个元素乘以2

lapply(1:5, function(x, y) x * y, y = 2)

是否可以使用lapply为列表中的每个元素指定不同的y？下面的伪代码就是一个例子：

lapply(1:5, function(x, y) x * y, y = 1 if x is odd and = 2 if x is even)

Answer 1

sapply和lapply只允许一个不同的参数。如果您有多个，则可以使用mapply或Map。例如

x<-1:5
mapply(function(x, y) x * y, x, 2-(x %% 2))
# [1] 1 4 3 8 5

在这里，我们使用2-(1:5 %% 2)得到1的赔率和2的均数。