在r中添加嵌套列表的相同数据帧

Question

我试图总结嵌套列表的许多数据帧（一种矩阵求和;一个数据帧中的相同单元与另一个相同的单元...）。该列表有三个级别，如下所示：

- 第一级由数字表示（例如1到5）

- 第二级包括月份（1月至12月）

- 第三级由数据框（31行和31列）组成。

所以我想要做的是获得一个新数据框，其数字1到5的月份总和相同。

如果我总结数据帧，我得到想要的结果：

month <- listname[[1]][["month"]] + listname[[2]][["month"]] + listname[[3]][["month"]] + listname[[4]][["month"]]....

因为我必须为数字1到N自动执行此过程，所以我不能使用上面示例中使用的添加。

我希望这个社区的优秀人才能帮助我找到解决方案。

格雷戈尔

Answer 1

看看下面是否有效。结果应该是每个月具有所需结果的列表

# change months to in format as in your data.
months <- c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")

lapply(months, function(month){
  Reduce(`+`,
         lapply(listname, function(x) {
           x[[month]]
         }))
})