如何在 Mathematica 中按第二列对矩阵进行排序？

Question

想象一下您有：

a = {{5, 1, 1}, {2, 0, 7}, {3, -4, 6}}

并且您想按第二列对其进行排序，以获取

b = {{3, -4, 6}, {2, 0, 7}, {5, 1, 1}}

我已尝试使用 SortBy[a, Last] 并适用于最后一列，但我无法让它工作对于第二列。

提前致谢 ：-）

Answer 1

这确实有效：

SortBy[a,#[[2]]&]

Answer 2

或者，

a[[Ordering[a[[All, 2]]]]]

Answer 3

在这里，对于强制性计时（我将基本的 Sort 添加到方法中）：

a = RandomReal[{0, 10}, {1000000, 3}];

Sort[a, #2[[2]] < #1[[2]] &]; // Timing

(* ==> {34.367, Null} *)

SortBy[a, #[[2]] &]; // Timing

(* ==> {0.436, Null} *)

 a[[Ordering[a[[All, 2]]]]]; // Timing

(* ==> {0.234, Null}, Chris wins *)

Answer 4

也许你可以使用这个网址： http://12000.org/my_notes/mma_matlab_control/KERNEL/ node99.htm

您可以使用的代码：

a={{300,48,2},{500,23,5},{120,55,7},{40,32,1}};
b=SortBy[a, #[[2]]&]

结果：

Out[9]= {{500,23,5},{40,32,1},{300,48,2},{120,55,7}}

Answer 5

如果您的数据是：

a = {{5, 1, 1}, {2, 1, 7}, {3, -4, 6}}

并且您需要对第二个元素进行稳定排序，则会产生：

{{3, -4, 6}, {5, 1, 1}, {2, 1, 7}}

尝试使用 SortBy 解决此问题可能会非常令人沮丧，除非您意识到这一点：

SortBy[a, {#[[2]] &}]

{ } 括号很重要。

Answer 6

只是在这方面的一个提示：
当使用像 Sqrt[...] 这样的非原子对象时，你可能会得到意想不到的结果：

SortBy[Range[10], -Sqrt[#] &]
{9, 4, 1, 8, 2, 3, 5, 6, 7, 10}

这是由于

排序通常通过将较短的表达式放在前面来对表达式进行排序，并且
然后以深度优先的方式比较零件。 （Mathematica 参考手册）。

当需要数字排序时，始终使用 N。