在 r 中将嵌套列表的相同数据帧相加答案

【问题标题】：adding together same dataframes of a nested list in r在 r 中将嵌套列表的相同数据帧相加
【发布时间】：2019-04-05 08:26:23
【问题描述】：

我正在尝试对嵌套列表的许多数据框求和（一种矩阵求和；一个数据框中的相同单元格与另一个相同的单元格...）。该列表分为三个级别，如下所示：

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

- 第二级包括月份（一月到十二月）

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

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

如果我将以下数据帧相加，我会得到想要的结果：

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

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

我希望这个社区的好人可以帮助我找到解决方案。

格雷戈

【问题讨论】：

可以分享示例数据吗？

标签： r nested-lists addition

【解决方案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]]
         }))
})

【讨论】：