条件向量化到向量命名列表的匹配

Question

我有一个向量的命名列表，y。 列表的名称对应于变量x的值。 我需要返回y中与位置i处的x值匹配的向量的值。 例如，如果在索引25处x ==“ b”，则我希望返回列表y中包含的“ b”向量的第25个值。

这是我目前的解决方案：

x <- sample(letters[1:4], 100, replace = T)

y <- list("a"=rnorm(100), "b"=rnorm(100), "c"=rnorm(100))

i <- match(x, names(y))
m <- sapply(i, function(i) {out <- rep(0,3); out[i] <- 1; out})

final <- apply(t(m) * do.call(cbind, y), 1, sum)

我希望有一些更惯用的东西。 作为解决方案的一部分，答案可以处理x中的值未出现在y名称中的情况。

我要解决的实际用例是将几个细分模型预测应用于整个人口的情况，需要将其分配给相应的细分。

编辑也，试图避免ifelse的笨拙用法。 由于名称是已知的，因此我不必手动指定它们。

Answer 1

使用带有二维索引的矩阵子集，您可以简单地执行

do.call(cbind, y)[cbind(1:length(i), i)]