Умножить перестановки двух векторов в R

Question

У меня есть два вектора длины 4 и хотят умножение перестановок вектора:

A=(a1,a2,a3,a4) 
B=(b1,b2,b3,b4) 

Я хочу:

a1*b1;a1*b2;a1*b3...a4*b4 

как список с известными порядка или data.frame с row.names = A и B COLNAMES =

Answer 1

Использование outer(A,B,'*'), который будет возвращать матрицу

x<-c(1:4) 
y<-c(10:14) 
outer(x,y,'*') 

возвращается

 [,1] [,2] [,3] [,4] [,5] 
[1,] 10 11 12 13 14 
[2,] 20 22 24 26 28 
[3,] 30 33 36 39 42 
[4,] 40 44 48 52 56 

и если вы хотите результат в списке, вы затем можете сделать

z<-outer(x,y,'*') 
z.list<-as.list(t(z)) 

head(z.list) возвращается

[[1]] 
[1] 10 

[[2]] 
[1] 11 

[[3]] 
[1] 12 

[[4]] 
[1] 13 

[[5]] 
[1] 14 

[[6]] 
[1] 20 

что x1 * y1, x1 * y2, x1 * y3, y4 x1 *, x2 * y1, ... (если вы хотите x1 * y1, x2 * y1, ... заменить t(z) на z)

Answer 2

Посмотрите expand.grid или outer

combination <- expand.grid(A, B) 
combination$Result <- combination$A * combination$B 
outer(A, B, FUN = "*") 

Answer 3

Мы можем попробовать vapply:

vapply(B, '*', A, FUN.VALUE=numeric(length(A)))