在一个列表中获取所有矩阵的最大值

Question

在一个列表中获取所有矩阵的最大值

5

我已经创建了一个矩阵列表，现在我想获取所有矩阵中每行的最大值，该怎么做？

以下是列表的代码：

i <- 1
tryList <- list()
treeList <- list()
accList <- list()

for(t_mtry in 1:40){
  for(t_ntree in 20:300{
    rf <- randomForest(class ~., data=training, mtry=t_mtry, ntree=t_ntree)
    tbl <- table(predicted = predict(rf,evalSet,type="class"),actual=evalSet$class)

    #get the accuracy of the classification as a list
    retVal <- accuracy(tbl)

    tryList <- c(tryList,t_mtry)
    treeList <- c(treeList,t_ntree)
    accList <- c(accList,mean(retVal))
   }
   matrixList[[i]] <- matrix(c(tryList,treeList,accList),length(accList)
   i <- i + 1
   tryList <- list()
   treeList <- list()
   accList <- list()
 }

现在我想要从每个矩阵中获取accList的最大值。如果我只有一个矩阵，我可以使用以下代码：

lapply(matrix,max)
max(unlist(matrix[,3]))

但是我如何将它与列表一起使用？

- CoolKiffings

我认为你的术语可能有点不准确。如果你在一个matrix上使用lapply，你会评估每个元素。你能提供一个可重现的例子吗（这个例子无法运行，有两个括号缺失，并且library(randomForest)没有声明）？ - Roman Luštrik

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- digEmAll · Accepted Answer

您的问题有点不清楚，无论如何这里有一些有用的信息：

m1 <- cbind(c(1,2,3),c(7,2,4))
m2 <- cbind(c(-1,19,13),c(21,3,5),c(3,3,0),c(4,5,6))
m3 <- cbind(c(1,2,3,4,5),c(8,18,4,6,7))

mylist <- list(M1=m1,M2=m2,M3=m3)

# get the maximum value for each matrix
lapply(mylist,FUN=max)

# get the global maximum
max(unlist(lapply(mylist,FUN=max)))

# get the maximum value for each row of each matrix
lapply(mylist,FUN=function(x)apply(x,MARGIN=1,FUN=max))


##### OUTPUT #####
> lapply(mylist,FUN=max)
$M1
[1] 7
$M2
[1] 21
$M3
[1] 18

> max(unlist(lapply(mylist,FUN=max)))
[1] 21

> lapply(mylist,FUN=function(x)apply(x,MARGIN=1,FUN=max))
$M1
[1] 7 2 4
$M2
[1] 21 19 13
$M3
[1]  8 18  4  6  7