Wolfram mathematica 根据Mathematica中的一行对矩阵排序

我对Mathematica很陌生，我遇到了一个可能很愚蠢的问题

我有一个矩阵

{{1,1,1,2,2,2}，{-1,0,1，-2，-1,0,1,2}

，我想对第二行进行排序，但同时对第一行元素的位置进行排序

因此，数组将变成

{2,1,2,1,2,1,2}，{-2，-1，-1,0,0,1,1,2}

。我希望这是清楚的。你知道我该怎么做吗

提前谢谢

list = {{1, 1, 1, 2, 2, 2, 2, 2}, {-1, 0, 1, -2, -1, 0, 1, 2}}

然后

提供您要查找的输出

作为将来的参考，您可能需要考虑将Mathematica问题发布在。

另一种方法：

SortBy[Transpose[data],Last]//Transpose

{2,1,2,1,2,1,2,2}，{-2，-1，-1,0,0,1,1,2}

SortBy[Transpose[data],Last]//Transpose