r - 如何在 R 中添加不等长的命名向量

Question

这个问题已经有答案了:

How do I sum the values of columns in several tables if tables have different lengths? (3 个回答)

已关闭 8 年前。

这一定很容易，但我似乎无法让它发挥作用。我有两个长度不等的命名向量:

x <- as.vector(c(5, 10,15,20))
names(x) <- c("A", "B", "C", "D")
y <- as.vector(c(7, 12))
names(y) <- c("A", "D")

我想添加它们并保留最长的命名约定。我希望 x + y 产生:

A   B   C   D
12  10  15  32

我尝试使长度等于其他地方的建议，这允许算术，但不保留命名约定。我也尝试过类似的事情:

z <- x[names(y)] + y

但这让我得到了算术，但没有保留结构。

Answer 1

您可以使用tapply()

z <- c(x, y)
tapply(z, names(z), sum)
#  A  B  C  D 
# 12 10 15 32