如何将每个向量元素添加到 R 中的每个列表元素？

Question

Reproducible example:

A <- list(1,2,3)
B <- c(10,20,30)

I want to add each vector element of B to each list element with the same index. The expected result is:

> AB
[[1]]
[1] 11

[[2]]
[1] 22

[[3]]
[1] 33

How to do this without using a loop?

Answer 1

Using Map .

Map(`+`, A, B)
# [[1]]
# [1] 11
# 
# [[2]]
# [1] 22
# 
# [[3]]
# [1] 33

Answer 2

purrr::map2(A, B, sum)

[[1]]
[1] 11

[[2]]
[1] 22

[[3]]
[1] 33

Answer 3

我想出了以下方法：

AB <- lapply(A, function(x) A[[x]] + B[x])

Answer 4

If the length of each element in the list is 1, it may be more efficient to unlist and do this once and relist back

relist(unlist(A) + B, A)
[[1]]
[1] 11

[[2]]
[1] 22

[[3]]
[1] 33