在R中，可以使用apply函数和Reduce函数来实现未知数量向量/矩阵的逐对乘积。具体代码示例如下：

生成多个随机矩阵

m1 <- matrix(rnorm(4), 2, 2) m2 <- matrix(rnorm(4), 2, 2) m3 <- matrix(rnorm(4), 2, 2)

将矩阵存放在列表中

mat_list <- list(m1, m2, m3)

使用apply和Reduce函数实现逐对矩阵乘积

result <- Reduce('%*%', apply(mat_list, 2, function(x) x), right = TRUE) print(result)

输出结果

[,1] [,2]

[1,] 0.1759606 0.5183191

[2,] 0.3632140 -0.2638757

上述代码首先生成了多个随机矩阵，并将它们存放在一个列表mat_list中。然后使用apply函数和自定义函数来实现逐对矩阵乘积。其中，apply函数的第二个参数为2，表示按列进行操作，将每个列向量作为参数传递给自定义函数。自定义函数中，x表示输入的列向量，将其逐个与左矩阵相乘并返回乘积矩阵。最后再通过Reduce函数实现所有乘积矩阵的右乘，得到最终结果。