根据嵌套矩阵中特定列的colMeans重新排序嵌套列表（索引）

Question

我正在处理带有双打的母体列表的嵌套列表。

m1<-matrix(rep(2+0.2*rnorm(3),5),5)
n1<-matrix(rep(5+2*rnorm(3),10),10)
p1<-matrix(rep(10+2*rnorm(3),8),8)
colnames(p1)<-colnames(m1)<-colnames(n1)<-c("a","b","c")
daughterlistl1<-list(m1,p1,n1)
daughterlistl2<-list(p1,n1,m1)
daughterlist3<-list(n1,m1,p1)
motherlist<-list(daughterlistl1, daughterlistl2, daughterlist3)

我想对每个嵌套矩阵（motherlist [[m]] [[n]] [，3]）的列“ c”取均值或colMeans，然后在嵌套的矩阵列表（motherlist [[m]）中对这些矩阵重新排序] [[n]]）（根据获得的平均值递增）（重新排列n），以便第三列中均值较小的矩阵首先出现，即得到索引1（motherlist [[m]] [[1]]） ，依此类推，适用于所有m个列表。

我能够在一个嵌套列表中获得索引的顺序

order(round(sapply(motherlist[[1]], colMeans), 3)[3,])

但不要对它们在母表中重新排序[[1]]，也不要对母表中的所有m进行迭代处理。

是否可以在嵌套列表中重新分配索引？ 怎么样？ 如何使用有序嵌套列表重新创建母列表？

Answer 1

motherlist <- lapply(motherlist,function(y){
  y[order(sapply(y,function(x){mean(x[,3])}))]
})

应该适合您的整个母亲清单。 拥有索引时，缺少的缺少功能是使用普通括号：

motherlist[[1]][order(round(sapply(motherlist[[1]], colMeans), 3)[3,])]

为您的母亲列表的第一个列表提供所需的内容。 您只需要再次申请以遍历您的母清单