如何将 n 不相等的多个向量与另一个元素中的每个元素交叉添加

Question

如果我有

A<-c(1,7)
B<-c(8,9)
C<-c(10,11,13)

我希望有

Sum<-c(1+8+10, 1+8+11, 1+8+13, 1+9+10, 1+9+11, 1+9+13, 7+8+10, 7+8+11, 7+8+13, 
7+9+10, 7+9+11, 7+9+13)

有没有一种简单的方法可以在 R 中做到这一点？

*********更新************

抱歉之前不清楚，我真的很想寻求一个通用的解决方案，说我有

A<-c(a1,a2)
B<-c(b1,b2)
C<-c(c1,c2,c3)

我真正希望的是

Sum<-c(a1+b1+c1, a1+b1+c2, a1+b1+c3, a1+b2+c1, a1+b2+c2, a1+b2+c3,a2+b1+c1, a2+b1+c2, a2+b1+c3, a2+b2+c1, a2+b2+c2, a2+b2+c3)

并按此顺序保持它，而不考虑 ABC 的值。

更新 2

正确答案应该是 expand.grid(C， B， A(

Answer 1

我们可以将expand.grid与rowSums一起使用

rowSums(expand.grid(A, B, C))
#[1] 19 25 20 26 20 26 21 27 22 28 23 29

一些解释 -expand.grid为A、B和C的每个组合返回一行

expand.grid(A, B, C)
#   Var1 Var2 Var3
#1     1    8   10
#2     7    8   10
#3     1    9   10
#4     7    9   10
#5     1    8   11
#6     7    8   11
#7     1    9   11
#8     7    9   11
#9     1    8   13
#10    7    8   13
#11    1    9   13
#12    7    9   13

然后我们为每一行取sum。

---

我们也可以使用双outer

c(outer(outer(A, B, "+"), C, "+"))
#[1] 19 25 20 26 20 26 21 27 22 28 23 29

---

编辑

如果输出的顺序很重要，我们可以在使用后order它们expand.grid

mat <- expand.grid(A, B, C)
rowSums(mat[order(mat$Var1, mat$Var2, mat$Var3), ])
#19 20 22 20 21 23 25 26 28 26 27 29 

或者，如果您有很多列并且不想按名称调用每一列，您可以这样做

rowSums(mat[do.call(order,mat), ])
#19 20 22 20 21 23 25 26 28 26 27 29 

Answer 2

这是一个带有CJ的选项

library(data.table)
CJ(A, B, C)[, Reduce(`+`, .SD)]
#[1] 19 20 22 20 21 23 25 26 28 26 27 29