修改列表R中的矩阵元素

我有一个包含40个1x2矩阵的列表。我想用一个矩阵a 2x2矩阵替换每个矩阵

其中两个是原始值，另外两个是30原始值

例如，如果我有以下矩阵：

matrix(c(2,12),ncol=2,nrow=1)
     [,1] [,2]
[1,]    2   12

我想要一个新的矩阵，如下所示：

     [,1] [,2]
[1,]    2   12
[2,]   28   18

虽然我可以很容易地做到这一点，甚至是在一个列表中，但我无法在一个列表中做到这一点。下面是一些示例代码：

list1<-list()
for (i in 1:10){
  list1[[i]]<-lapply(1:10, matrix, data= runif(2, 12, 30), nrow=1, ncol=2)
}

---

list1您可以通过两次调用
lappy（）
：

l$l1
#>      [,1] [,2]
#> [1,]    1    2
#> 
#>$l2
#>      [,1] [,2]
#> [1,]    3    4
l2[[1]]
#>[[1]]$l1
#>      [,1] [,2]
#> [1,]    1    2
#> [2,]   29   28
#> 
#>[[1]]$l2
#>      [,1] [,2]
#> [1,]    3    4
#> [2,]   27   26
#> 
#> 
#> [[2]]
#>[[2]]$l1
#>      [,1] [,2]
#> [1,]    1    2
#> [2,]   29   28
#> 
#>[[2]]$l2
#>      [,1] [,2]
#> [1,]    3    4
#> [2,]   27   26

由（v0.2.0）于2018-03-22创建。
您可以通过两次调用
lappy（）
：

l$l1
#>      [,1] [,2]
#> [1,]    1    2
#> 
#>$l2
#>      [,1] [,2]
#> [1,]    3    4
l2[[1]]
#>[[1]]$l1
#>      [,1] [,2]
#> [1,]    1    2
#> [2,]   29   28
#> 
#>[[1]]$l2
#>      [,1] [,2]
#> [1,]    3    4
#> [2,]   27   26
#> 
#> 
#> [[2]]
#>[[2]]$l1
#>      [,1] [,2]
#> [1,]    1    2
#> [2,]   29   28
#> 
#>[[2]]$l2
#>      [,1] [,2]
#> [1,]    3    4
#> [2,]   27   26

由（v0.2.0）于2018年3月22日创建。
尝试在
list1
中的列表中进行交互：
for（j in 1:length（list1））{for（i in 1:10）{list1[[j][[i]]尝试在
list1中的列表中进行交互：
for（j in 1:length（list1））{for（i in 1:10）{list1[[j]]