R：如何根据名字在两个列表上运行一个function/calculation？

Question

我想运行基于两个列表的名称的函数（在本例中只是乘法）。这里有一些示例数据显示了我的结构：

A <- list("111"=matrix(sample(1:10,9), nrow=3, ncol=3),
          "112"=matrix(sample(1:10,9), nrow=3, ncol=3))
names <- list(c("A", "B", "C"), c("A", "B", "C"))
A <- lapply(ProdValues, function (x) {dimnames(x) <- names; return(x)})

列表 A 在矩阵中具有不同产品的值 (listnames=111,112)，列表 B（下方）具有相同产品的 YEARLY 值，名称由产品和年份组成并以“.”分隔。（例如 111.2000）：

B <- list("111.2000"=matrix(sample(1:10,9), nrow=3, ncol=3),
          "112.2000"=matrix(sample(1:10,9), nrow=3, ncol=3),
          "111.2001"=matrix(sample(1:10,9), nrow=3, ncol=3),
          "112.2001"=matrix(sample(1:10,9), nrow=3, ncol=3))
names <- list(c("A", "B", "C"), c("A", "B", "C"))
B <- lapply(ProdYears, function (x) {dimnames(x) <- names; return(x)})

到目前为止，我运行我使用 mapply 的乘法：

fun <- function(A, B) {
  calc= A*B
  return(calc)
}
mapply(fun, A, B, SIMPLIFY = FALSE)

在这种情况下，它提供了一个很好的结果。然而，失去了 B 的名字，这对我来说是重要的。另一个问题是 B 比 A 有更多的对象，因此我想运行计算中的名称匹配：A 中的名称，例如111，应匹配 B 111.2000 和 111.2001 中的名称。有任何想法吗？

注意：产品名称也可以有 2 位数字，而不仅仅是 3 位。所以我需要使用“.”前面的数字进行匹配。谢谢

Answer 1

您可以使用 Map 循环遍历 B 和 B 名称，这也将保留名称：

Map(function(x,y) A[[y]]*x, B, gsub('\..*','',names(B)))

#$`111.2000`
#     [,1] [,2] [,3]
#[1,]   36   18   54
#[2,]   16   25    3
#[3,]   56   10   20

#$`112.2000`
#     [,1] [,2] [,3]
#[1,]   18   10   40
#[2,]   35   18   60
#[3,]    3   63   16

#$`111.2001`
#     [,1] [,2] [,3]
#[1,]   81   30   18
#[2,]   56   25    1
#[3,]   28   20   16

#$`112.2001`
#     [,1] [,2] [,3]
#[1,]   36   30   72
#[2,]   30   30    6
#[3,]    5   56    4

R：如何根据名字在两个列表上运行一个function/calculation？

R: How to run a function/calculation on two lists based on their names?

r

list

mapply