☰

多数の列を並べ替えるにはどうすればよいでしょうか?

tag-icon • tag-icon sort columns
多数の列を並べ替えるにはどうすればよいでしょうか?

多数の列を並べ替えるためのパイプ可能なワンライナーを探しています (たとえば、コマンドなどで列番号を手動で入力することはawk不可能awk '{print $3,$2,$1}'です)。順序は、ソート スキーム (アルファベット順、数値順 - つまり、「sort」に似ていますが、行ではなく列に対して作用します) によって指定することも、テキスト ファイルで任意に指定することもできます。

答え1

Perl を使用したシンプルなソリューション。

まず、値の配列を入力します。

➜ ~ x="$(cat << END
22      79      83      16      25      1       4       82      34      68
48      43      2       26      39      2       71      43      57      41
77      70      73      18      76      33      21      54      67      50
6       65      46      92      25      70      53      28      3       40
32      60      76      39      26      44      34      91      24      39
59      75      96      85      52      98      69      28      72      94
48      0       88      55      6       78      1       54      83      81
3       43      48      24      23      87      28      98      38      67
97      73      74      24      92      67      1       27      90      85
32      55      52      44      26      37      87      37      100     92
END
)"

➜  ~ perl -lane '@i=sort({ @F[$a] <=> @F[$b] } 0..$#F) if $.==1; 
                 print join("\t", @F[@i])' <<< "$x"      

1       4       16      22      25      34      68      79      82      83
2       71      26      48      39      57      41      43      43      2
33      21      18      77      76      67      50      70      54      73
70      53      92      6       25      3       40      65      28      46
44      34      39      32      26      24      39      60      91      76
98      69      85      59      52      72      94      75      28      96
78      1       55      48      6       83      81      0       54      88
87      28      24      3       23      38      67      43      98      48
67      1       24      97      92      90      85      73      27      74
37      87      44      32      26      100     92      55      37      52
  • -a:@F配列を自動的に分割する自動分割を有効にします
  • -n: whileループで各行を読み取ります
  • $#F: 配列内の0から始まる最大のインデックスを返します
  • <=>: ソート関数の比較演算子（数値入力のみ、文字列比較には を使用cmp）
  • sort: 配列からソートされたインデックスを返します0..$#F（組み込み$aおよび$b変数を使用）
  • @i: ソートされたインデックスの配列が含まれます@F（この例では、@i = 5 6 3 0 4 8 9 1 7 2）
  • $. == 1: 最初の行のみで実行します
  • @F[@i]: ソートされたインデックスに基づいて各行をソートします

ソース：https://learnbyexample.gitbooks.io/command-line-text-processing/content/perl_the_swiss_knife.html

答え2

ここにストリーミング可能なソリューションがあります。

列の最初の行に基づいて並べ替えることを想定していますが、そうでない場合は、別の場所から並べ替えキーを取得するように適応します。

ソートキーを生成する（Rush の配列を再利用）：

echo -e  "b a c\n5 4 6\n8 7 9" > data

key=$(head -n1 data | sed 's/ \+/\n/g' | nl -n ln | sort -k2 | cut -f1)

$key現在保持しています:

2
1
3

次に、キーを使用して列を並べ替えます。

awk -v key="$key" '
BEGIN { split(key, order, "\n") }

{ 
  for(i=1; i<=length(order); i++) { 
    printf("%s ", $order[i])
  }
  printf("\n");
}' data

出力：

a b c 
4 5 6 
7 8 9

答え3

これが最善の解決策であるかどうかはわかりませんし、巨大なテーブルで高速に動作するかどうかもわかりませんが、動作するはずです:

echo -e  "2 1 3\n5 4 6\n8 7 9"  | \
awk '{for (i=1;i<=NF;i++) {a[NR,i]=$i} } \
     NF>p {p=NF} \
     END {for (j=1;j<=p;j++) {str=a[1,j]; \
     for (i=2;i<=NR;i++) {str=str" "a[i,j];}print str}}' \ 
     | sort -n  | \
awk '{for (i=1;i<=NF;i++) {a[NR,i]=$i} } \
     NF>p {p=NF} \
     END {for (j=1;j<=p;j++) {str=a[1,j]; \
     for (i=2;i<=NR;i++) {str=str" "a[i,j];}print str}}'

動作方法: テーブルを転置し、次にテーブルを並べ替えて転置し直します。

ところで、echo -e "2 1 3\n5 4 6\n8 7 9"結果は

2 1 3
5 4 6
8 7 9

スクリプト作業の後は、

1 2 3
4 5 6
7 8 9

ps. awk で配列をソートすることは可能だと思いますが、残念ながらそれを実行する時間が足りません。

答え4

ファイルが xy.dat で、空白で区切られていると仮定します。

cat xy.dat | while read line ; do  
   echo $line | tr ' ' '\n' | sort -nr | tr '\n' ' '
   echo
done

私のテストデータは数値の昇順だったので、中心で sort -nr を使用して降順に変更し、効果を確認しました。

これを設定可能にするには、ソートのフラグをパラメータとして渡すだけです。これにより、昇順 (なし) と降順 -r (逆順) だけでなく、-n (数値) など、さまざまなフラグが使用sort --help可能になります (参照: )。設定可能にすると便利なもう 1 つの項目は、区切り文字です。空白/タブ/セミコロン/カンマ? 空白またはタブを意味する正規表現グループなどでしょうか"[ \t]"? しかし、出力には何を使用すればよいでしょうか? また、ファイル名をハードコードするのではなく、プログラムをフィルターとして使用したいとします。簡単なアプローチは次のとおりです。

#!/bin/bash
flags=$1
delim=$2 
while read line ; do  
    echo $line | tr "$delim" '\n' | sort $flags | tr '\n' "$delim"
    echo
done

呼び出し:

cat num.dat | bash colsort.sh "-nr" ' ' 
4 3 2 1 
8 7 6 5 
11 10 9 

cat num.dat | bash colsort.sh "-r" ' ' 
4 3 2 1 
8 7 6 5 
9 11 10 

cat num.dat | bash colsort.sh "--" ' ' 
1 2 3 4 
5 6 7 8 
10 11 9

-- (アルファベット順: 10 11 9)、逆順 (9 10 11)、または数値順 (11 10 9) でデフォルトでどのようにソートされるかを確認します。

主に、空白やタブなどをマスクする方法が文書化されていれば役立ちます。

関連情報