如何通过 R 中列向量的数字或字母值对矩阵进行排序？

Question

下面例子的标题应该是不言自明的：

m = unique(replicate(5, sample(1:5, 5, rep=F)), MARGIN = 2)
m
      [,1] [,2] [,3] [,4] [,5]
[1,]    1    5    1    4    3
[2,]    5    1    5    1    2
[3,]    4    3    3    3    1
[4,]    3    4    4    5    5
[5,]    2    2    2    2    4

但我想要的是：

      [,1] [,2] [,3] [,4] [,5]
[1,]    1    1    3    4    5
[2,]    5    5    2    1    1
[3,]    3    4    1    3    3
[4,]    4    3    5    5    4
[5,]    2    2    4    2    2

理想情况下，我想找到一种方法，当列向量是单词（字母顺序）时，可以执行相同的过程。

我尝试了m[ , sort(m)] 之类的方法，但没有成功...

Answer 1

m[, order(m[1, ]) 将按第一行对列进行排序。 m[, order(m[1, ], m[2, ])] 将按第一行排序，使用第二行作为决胜局。变得花哨，m[, do.call(order, split(m, row(m)))] 将按第一行对列进行排序，将所有后续行用于决胜局。这将与 character 数据和 numeric 一样工作。

set.seed(47)
m = replicate(5, sample(1:5, 5, rep=F))
m
#      [,1] [,2] [,3] [,4] [,5]
# [1,]    5    4    1    5    1
# [2,]    2    2    3    2    3
# [3,]    3    5    5    1    2
# [4,]    4    3    2    3    5
# [5,]    1    1    4    4    4
m[, do.call(order, split(m, row(m)))]
#      [,1] [,2] [,3] [,4] [,5]
# [1,]    1    1    4    5    5
# [2,]    3    3    2    2    2
# [3,]    2    5    5    1    3
# [4,]    5    2    3    3    4
# [5,]    4    4    1    4    1