mapply 函数未按预期工作

Question

我正在写一个大函数。我想使用 mapply 函数来运行一个列表上的函数。

我有这个：

 x <- list(1,3, 4, 5)
 y <- list(5,6,7,3)
 res <- mapply(x  , y , FUN = function(x, y) double(x + y)) 
[[1]]
[1] 0 0 0 0 0 0

[[2]]
[1] 0 0 0 0 0 0 0 0 0

[[3]]
 [1] 0 0 0 0 0 0 0 0 0 0 0

[[4]]
[1] 0 0 0 0 0 0 0 0

我希望结果只有两个列表。像这样：

 [[1]]
0 0 0 0 0 

[[2]]
0 0 0 0 0

所以我希望答案仅适用于两个列表，而不适用于列表中的每个元素。

我该怎么做？

Answer 1

试试 lapply 函数。

my_list(x,y)
m <- length(my_list)
lapply(1:m, function(i) double(x[[i]]+y[[i]]))

您的列表长度是 4，所以您不能将它设为两个作为输出！

mapply 函数未按预期工作

mapply function does not work as expected

r

mapply