使用purrr函數並行迭代兩個嵌套列表

Question

我正在玩一些purrr函數，發現（令我高興） purrr::at_depth(.x, .depth, .f, ...)是purrr::map(x, . %>% map(fun))縮寫purrr::at_depth(.x, .depth, .f, ...) purrr::map(x, . %>% map(fun)) 。

問題： 當我有兩個要並行迭代的嵌套列表時，是否有類似的功能或執行相同操作的正確“ purrr ”？

舉個例子：

x <- list(list(10, 20), list(30, 40))
y <- list(list(1, 2), list(3, 4))

a <- list()
for(i in seq_along(x)) {
   a[[i]] <- map2(x[[i]], y[[i]], `+`) 
}

這可以工作，但是它很臟，我想避免for循環。

Answer 1

您具有列表列表，並且+沒有針對列表進行矢量化，可以使用map2兩次，第一個map2同時循環遍歷x，y，第二個map2以元素明智的方式添加子列表：

map2(x, y, map2, `+`)

#[[1]]
#[[1]][[1]]
#[1] 11

#[[1]][[2]]
#[1] 22


#[[2]]
#[[2]][[1]]
#[1] 33

#[[2]][[2]]
#[1] 44