如何对列取出绝对值最大的一列

clfsy

sample 如下：
cat aa

aa f -0.001
aa f -0.045
aa f -0.022
bb f -0.034
bb f -0.003
bb f -0.001
cc f -0.033
cc f -0.045
cc f -0.022
dd f -0.002
dd f -0.021
dd f -0.011
dd f -0.031
处理后希望得到如下结果：（即判断第一列是否相同，如果相同则判断第三列，输出绝对值最大的那一行。）
aa f -0.045
bb f -0.034
cc f -0.045
dd f -0.031

能想到的 命令：  cat aa | sort -k1,1 -k3,3 -u , 但是还是有重复的第一列存在。
aa f -0.001
aa f -0.022
bb f -0.003
bb f -0.034
cc f -0.033
cc f -0.045
dd f -0.002
dd f -0.021

WilliBhamlll

1. awk '{a[$1" "$2]=a[$1" "$2]<$3?a[$1" "$2]:$3}END{for(n in a)print n,a[n]}' aa

复制代码

StarWingsss

cat aa | sort -k1,1 -k3,3 -u  ##-u是每一行所有域都一样才算去重复
cat aa | sort -k1,1 -k3,3n    ## -k3,3n表示要比较的是数字

##只要你显示奇数行就可以了
cat aa | sort -k1,1 -k3,3n|awk '{if(n++%2==0) print $0}'

aa f -0.022
bb f -0.034
cc f -0.045
dd f -0.021

moperyblue

1. echo 'aa f -0.001
   
2. aa f -0.022
   
3. bb f -0.034
   
4. bb f -0.003
   
5. cc f -0.033
   
6. cc f -0.045
   
7. dd f -0.002
   
8. dd f -0.021
   
9. ee f 0.001
   
10. ee f 0.022'|awk 'function abs(v){return v<0?-v:v}{k=$1 FS $2;a[k]=abs(a[k])<abs($3)?a[k]=$3:a[k]}!b[k]++{c[++d]=k}END{for(;i++<d;)print c[i],a[c[i]]}'

复制代码

elu_ligao

1. awk '{s=$3*$3}s>a[$1]{a[$1]=s;b[$1]=$0}END{for(i in b)print b[i]}'

复制代码

butterflyswim

1. sort file |awk 'NR%2==0'

复制代码

sunzhiguolu

1. perl -anle '@a=@F if(!@a||abs($a[-1])<abs($F[-1]));if(!($.%2)){print "@a";@a=()}' f

复制代码

clfsy

StarWingsss 发表于 2016-09-12 14:19
cat aa | sort -k1,1 -k3,3 -u  ##-u是每一行所有域都一样才算去重复
cat aa | sort -k1,1 -k3,3n    ## - ...

多谢指教，不过这边我举例不恰当， 例子里面每个第一列相同的行数只有2行，实际上这是一个不定数。
所以不是print 出奇数行就可以的。

我改一下sample。

谢谢。

clfsy

WilliBhamlll 发表于 2016-09-12 13:57

多谢高手指教， awk这个可以的。
不过不是特别明白，我再研究研究。


谢谢谢谢。

StarWingsss

sort -t" " -k1,1 -k3,3n aa.txt |awk '{print $3,$2,$1}'| uniq -f2 -d|awk '{print $3,$2,$1}'
aa f -0.045
bb f -0.034
cc f -0.045
dd f -0.031

##uniq -fn n为数字，忽略前n个域，去重复，如

cat file

1 AK123 33 46 6u OPP ty yu

1 DK122 5h 67 y8 OPP ty yu

1 EK999 56 56 78 IIY ty yu

uniq -f5 -c 1link          ##即第六个域开始比较

2 AK123 33 46 6u OPP ty yu

1 EK999 56 56 78 IIY ty yu

本来awk部分想用rev来代替，可以容易有误差，不知道awk部分有没有其他更好的方法