Question

我在R中有两个数据表,其栏目相同。这些表格含有一些重叠的关键内容,每个表格都有一些独特的浏览量。我要总结一下重叠的行文,并保留每个桌上的所有独特行文。

data.table.a
Key Total
  1     2
  3     1
  4     3
  5     1

data.table.b
Key Total
  2     5
  3     1
  5     2

result
Key Total
  1     2
  2     5
  3     2
  4     3
  5     3

如何做到这一点?data.table.a [data.table.b]只剩下一个条目,data.table.a + data.table.b将无法运作,因为我有不同的行文。

Edit: Added reproducible Code:

data.table.a <- data.table(Key=c(1,3,4,5),Total=c(2,1,3,1))
data.table.b <- data.table(Key=c(2,3,5),Total=c(5,1,2))
result <- data.table(Key=c(1,2,3,4,5),Total=c(2,5,2,3,3))

Answer 1

一种方式是:

> rbind(data.table.a,data.table.b)[,list(Total=sum(Total)),keyby=Key]
     Key Total
[1,]   1     2
[2,]   2     5
[3,]   3     2
[4,]   4     3
[5,]   5     3

友情链接