如何從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