数据表R ||对数据表列表中的特定列求和

如何解决数据表R ||对数据表列表中的特定列求和

library(data.table)    
dt_store<-list()
A <- data.table(a = paste0("gid",1:4),b = paste0("IID",12:15),value=seq(from=1,to=4))
B <-  data.table(a = paste0("gid",value=seq(from=11,to=14))
C <-  data.table(a = paste0("gid",value=seq(from=21,to=24))


dt_store[[1]]<-A
dt_store[[2]]<-B
dt_store[[3]]<-C

我想加/加列value。列表中的每个data.table具有相同的行数和相同的列名。 b列是唯一的。 a列中可能有重复项

我希望最终的输出为：

    a     b final_sum
 gid1 IID12  33
 gid2 IID13  36
 gid3 IID14  39
 gid4 IID15  42

Reduce("+",lapply(dt_store,value))＃这个错误了。

如何使用Reduce或lapply，mapply？我可以使用for循环，但这太幼稚了。抱歉，这些关键功能很难掌握。

解决方法

我们可以使用http://192.168.10.88:5000/list/lot/parameters?time=OLDER&status=NEW&search=test 绑定rbindlist元素，然后按list进行分组

sum

-输出

library(data.table)
rbindlist(dt_store)[,.(final_sum = sum(value)),.(a,b)]