R dimnames和sapply-如何更改.GlobalEnv中的值

我有一个愚蠢的问题。例如，我有如下代码：

resultNorm <- lapply(2:5, function(numBeans) { parSapply(cl, 1:iterations, GetBinsNormDistribs, numBeans = numBeans) });

> resultNorm 
[[1]]
          [,1]       [,2]      [,3]
[1,] 0.2246621 0.09398241 0.1356241
[2,] 0.3107575 0.05482151 0.1331455
[3,] 0.9261597 0.77957860 0.8280028
[4,] 1.2077192 1.17804615 1.0985935

[[2]]
           [,1]       [,2]       [,3]
[1,] 0.04151756 0.07737258 0.06166794
[2,] 0.04680101 0.07138281 0.07005758
[3,] 0.98120583 0.96825317 0.96955009
[4,] 1.52177642 1.57192003 1.62818979

[[3]]
          [,1]      [,2]       [,3]
[1,] 0.1151765 0.1733337 0.07806343
[2,] 0.1405760 0.2070153 0.07304057
[3,] 0.8228107 0.9457689 1.03273787
[4,] 1.6026743 1.7581600 1.89761473

[[4]]
          [,1]      [,2]       [,3]
[1,] 0.1360939 0.1590460 0.08682901
[2,] 0.1520694 0.2047105 0.07762287
[3,] 0.9121020 1.0151550 0.96390948
[4,] 1.9088521 2.0688248 1.99595126

> resultNorm 
[[1]]
          [,1]       [,2]      [,3]
a1 0.2246621 0.09398241 0.1356241
a2 0.3107575 0.05482151 0.1331455
a3 0.9261597 0.77957860 0.8280028
a4 1.2077192 1.17804615 1.0985935

[[2]]
           [,1]       [,2]       [,3]
a1 0.04151756 0.07737258 0.06166794
a2 0.04680101 0.07138281 0.07005758
a3 0.98120583 0.96825317 0.96955009
a4 1.52177642 1.57192003 1.62818979

[[3]]
          [,1]      [,2]       [,3]
a1 0.1151765 0.1733337 0.07806343
a2 0.1405760 0.2070153 0.07304057
a3 0.8228107 0.9457689 1.03273787
a4 1.6026743 1.7581600 1.89761473

[[4]]
          [,1]      [,2]       [,3]
a1 0.1360939 0.1590460 0.08682901
a2 0.1520694 0.2047105 0.07762287
a3 0.9121020 1.0151550 0.96390948
a4 1.9088521 2.0688248 1.99595126

因此，我想在此列表中使用

dimnames

，并为每一行指定唯一的名称： 我尝试过这样的代码，但没有任何结果：

devNull <- sapply(1:length(resultNorm), function(i, envir = .GlobalEnv) { dimnames(resultNorm[[i]]) <- list(c("a1", "a2", "a3", "a4")) })

---

使用此选项设置列表中矩阵的行名：

lapply(resultNorm, #loop over the list elements instead of over an index
         function(mat) {
           rownames(mat) <- c("a1", "a2", "a3", "a4") #assign rownames
           mat})

lappy（resultNorm，#在列表元素而不是索引上循环
功能（mat）{
行名（mat）使用此选项设置列表中矩阵的行名：

lapply(resultNorm, #loop over the list elements instead of over an index
         function(mat) {
           rownames(mat) <- c("a1", "a2", "a3", "a4") #assign rownames
           mat})

lappy（resultNorm，#在列表元素而不是索引上循环
功能（mat）{
rownames（mat）您期望的输出是什么？这不是一个MWE。请将其转换为一个。@docendo discimus添加到主文本中。@Pascal，对不起，您的意思是什么？最好第一次正确执行，
fun=function（i，…）{结果您期望的输出是什么？这不是MWE。请将其转换为MWE。@docendo discimus已添加到正文中。@Pascal，对不起，您的意思是什么？最好第一次正确操作，
fun=function（i，…）{result