按索引返回的列对矩阵排序

Question

我想对R中矩阵A的所有列进行排序 到目前为止，我正在使用

apply(A,2,sort),

给出了已排序的列。

但我还希望在排序后得到每列的索引。 我尝试使用index.return=TRUE作为sort的选项，但我认为我无法在apply中使用它。我怎样才能获得索引？

Answer 1

我们也可以使用index.return = TRUE，但是当我们有list时，它会返回lst <- apply(A,2,sort, index.return = TRUE) 。

do.call(rbind, Map(cbind, colInd = seq_along(lst),
              lapply(lst, function(x) do.call(cbind, x))))

如果我们需要将其转换为具有列索引的3列矩阵

set.seed(24)
A <- matrix(rnorm(25), 5, 5)

数据

{{1}}