如何从R中的数据帧列表中转移数据？

Question

假设我有一个数据框列表ldf：

df1 <- data.frame(date = c(1,2), value = c(4,5))
df2 <- data.frame(date = c(1,2), value = c(4,5))
ldf <- list(df1, df2)

按日期获取值（或任何其他函数）的最佳方法是什么，即某些数据框如：

data.frame(date = c(1,2), value = c(8,10))

Answer 1

你可以使用：

library(data.table)
dt1 <- rbindlist(ldf)
setkey(dt1,'date')
dt1[,list(value=sum(value)), by='date']
 date value
1:    1     8
2:    2    10

Answer 2

如果这些行都在同一个数据框中，您可以使用aggregate来进行总和。 您可以将它们与rbind组合，以便它们位于相同的数据框中：

aggregate(value ~ date, data=do.call(rbind, ldf), FUN=sum)
  date value
1    1     8
2    2    10

如果所有数据框中的date列相同，则可以轻松使用Reduce进行总结：

Reduce(function(x, y) data.frame(date=x$date, value=x$value+y$value), ldf)
  date value
1    1     8
2    2    10

这应该是比快了很多rbind -ing的数据一起和聚合。

Answer 3

另一个选择是使用unnest在经由“dplyr”的典型分组和聚集功能一起从“tidyr”：

library(dplyr)
library(tidyr)

unnest(ldf) %>%
  group_by(date) %>%
  summarise(value = sum(value))
# Source: local data frame [2 x 2]
# 
#   date value
# 1    1     8
# 2    2    10