在R中创建一个没有for循环的列表矩阵

Question

我在R中有两个列表，我想在矩阵中为不同的z值创建结果。意味着最后我有2行10列的矩阵。

x = list(a = 1, b = 2, c = 3)
y = list(a = 4, b = 5, c =  3)
z = seq(0, 1, len = 10)
w = list(a1 = z * x$a + (1-z) * x$b + x$c , b1 = z * y$a + (1-z) * y$b + y$c)

如果没有R中的for循环，我怎么能这样做？

Answer 1

这样的事情（在编辑问题之前，x和y的长度为2）：

d <- list(x, y)
t(sapply(d,  function(x) z*x$a + (1-z)*x$b))
##      [,1]     [,2]     [,3]     [,4]     [,5]     [,6]     [,7]     [,8]     [,9] [,10]
## [1,]    2 1.888889 1.777778 1.666667 1.555556 1.444444 1.333333 1.222222 1.111111     1
## [2,]    5 4.888889 4.777778 4.666667 4.555556 4.444444 4.333333 4.222222 4.111111     4

Answer 2

rbind(unlist(x), unlist(y)) %*% rbind(z, 1-z, 1)