R中列表的两个列表的总和

Question

是否有一种简单的方法可以在列表列表中进行简单的计算？

x <- list(a=list(1:4),b=list(1:6))
y <- list(a=list(1:4),b=list(1:6))

当我尝试：

x+y

我收到错误： x + y中的错误：二元运算符的非数字参数

X和y的长度相等，只包含整数。使用矩阵可以执行y + x，有没有办法对带有列表的列表执行此操作？

Answer 1

假设每个列表具有相同的结构，您可以使用mapply，如下所示

  mapply(function(x1, y1) x1[[1]]+y1[[1]], x, y)

Answer 2

您可以使用lapply同时浏览每个2个列表。

 lapply(seq_along(x),function(i)
         unlist(x[i])+unlist(y[i]))

[[1]]
a1 a2 a3 a4 
 2  4  6  8 

[[2]]
b1 b2 b3 b4 b5 b6 
 2  4  6  8 10 12 

如果x和y的长度不同，则可以这样做：

 lapply(seq_len(min(length(x),length(y)),function(i)
         unlist(x[i])+unlist(y[i]))