R：从字符串名称向量调用矩阵？

Question

想象一下，我有100个数字矩阵，每个矩阵有5列。 我将这些矩阵的名称保留在向量或列表中：

Mat <- c("GON1EU", "GON2EU", "GON3EU", "NEW4", ....)

我也有一个系数“ coef”的向量，

coef <- c(1, 2, 2, 1, ...)

我想以这种方式计算结果向量：

coef[1]*GON1EU[,1]+coef[2]*GON2EU[,1]+coef[3]*GON3EU[,1]+coef[4]*NEW4[,1]+.....

如何使用名称的向量以紧凑的方式进行操作？

就像是：

coef*(Object(Mat)[,1])

我认为关键是如何从字符串中调用对象的名称，用法和矢量符号。 但是我不知道如何。

Answer 1

get()允许您通过字符串引用对象。 但这只会让你走到现在。 您仍然需要在列表矩阵等上构造对get（）的重复调用。但是，我想知道替代方法是否可行？ 为什么不将矩阵存储在列表中，而不是将矩阵分别存储在工作区中？

然后，您可以在列表上使用sapply()提取列表中每个矩阵的第一列。 sapply()步骤返回一个矩阵，我们将其乘以系数向量。 该矩阵的列总和是您在上面的描述中似乎想要的值。 至少我假设coef[1]*GON1EU[,1]是length(GON1EU[,1])等的向量。

这是实现此想法的一些代码。

vec <- 1:4 ## don't use coef - there is a function with that name
mat <- matrix(1:12, ncol = 3)
myList <- list(mat1 = mat, mat2 = mat, mat3 = mat, mat4 = mat)
colSums(sapply(myList, function(x) x[, 1]) * vec)

这是一些输出：

> sapply(myList, function(x) x[, 1]) * vec
     mat1 mat2 mat3 mat4
[1,]    1    1    1    1
[2,]    4    4    4    4
[3,]    9    9    9    9
[4,]   16   16   16   16
> colSums(sapply(myList, function(x) x[, 1]) * vec)
mat1 mat2 mat3 mat4 
  30   30   30   30

上面的示例建议您从分析开始就创建或读入100个矩阵作为列表的组成部分。 这将需要您更改用于生成100个矩阵的代码。 myList您的工作空间中已经有100个矩阵，要从这些矩阵中获取myList ，我们可以使用已经拥有的名称向量并使用循环：

Mat <- c("mat","mat","mat","mat")
## loop
for(i in seq_along(myList2)) {
    myList[[i]] <- get(Mat[i])
}
## or as lapply call - Kudos to Ritchie Cotton for pointing that one out!
## myList <- lapply(Mat, get)
myList <- setNames(myList, paste(Mat, 1:4, sep = ""))
## You only need:
myList <- setNames(myList, Mat)
## as you have the proper names of the matrices

我在Mat反复使用"mat" ，因为这是我上面的矩阵的名称。 您将使用自己的Mat 。 如果vec包含coef ，并且使用上述for循环创建myList ，则您需要做的只是：

colSums(sapply(myList, function(x) x[, 1]) * vec)

得到您想要的答案。

Answer 2

查看help（get）就是这样。

如果您给了我们一个可复制的示例，我会说更多。 例如：

> a=1;b=2;c=3;d=4
> M=letters[1:4]
> M
[1] "a" "b" "c" "d"
> sum = 0 ; for(i in 1:4){sum = sum + i * get(M[i])}
> sum
[1] 30

将所需的内容放入循环中，或在向量M上应用apply并获取对象：

> sum(unlist(lapply(M,function(n){get(n)^2})))
[1] 30