使用列的值将数据从数据表添加到另一个

Question

我知道这个问题令人困惑，但我希望这个例子能让它变得简单。

我有两张桌子：

x    y
1    23
2    34
3    76
4    31

&

x    y
1    78
3    51
5    54

我需要根据 x 值添加 y 列。我可以使用循环来做到这一点，但不想这样做。如果解决方案使用我最熟悉的base、dplyr、data.table 函数会更好，我也可以使用apply 系列函数。输出应如下所示：

x    y
1    101
2    34
3    127
4    31
5    54

Answer 1

基本思想是结合两个数据集，按x 分组并总结y 和sum，有几种方法可以做到：

data.table:

rbind(dtt1, dtt2)[, .(y = sum(y)), by = x]

#    x   y
# 1: 1 101
# 2: 2  34
# 3: 3 127
# 4: 4  31
# 5: 5  54

基础 R aggregate:

aggregate(y ~ x, rbind(dtt1, dtt2), FUN = sum)

dplyr:

rbind(dtt1, dtt2) %>% group_by(x) %>% summarize(y = sum(y))

---

数据：

library(data.table)

dtt1 <- fread('x    y
1    23
2    34
3    76
4    31')

dtt2 <- fread('x    y
1    78
3    51
5    54')