awk如何将一个矩阵中正数变成1，负数变成-1,0还是0

chenjiali1

gene_id-exonA_num       YTHDC1.1        YTHDC1.2        SRSF1
ENSG00000110719-5       -10.2077283895466       1.4918414918415 -2.4503115637264
ENSG00000115760-14      24.9427917620137        13.047068538398 -26.0219962647852
ENSG00000151116-2       15.4278305963699        9.2447731474897 6.2200956937799
ENSG00000132952-4       6.25    -10.4636591478697       3.50877192982456
ENSG00000240771-9       -7.95454545454545       -13.3333333333333       4.8780487804878
ENSG00000148773-9       -4.36729396495782       -13.8505181827253       -11.5785311851339
ENSG00000071889-4       -6.03838976272995       0       4.07185628742515
ENSG00000075711-7       -13.508064516129        -9.85691573926869       0.555555555555557
ENSG00000154222-10      8.89245585874799        -10.5985453984734       0
想把正的变成1，负的变成-1，第一列照常输出，请问如何实现，谢谢大家！

jason680

回复 1# chenjiali1

1. $ awk 'function p(x){return(sprintf("%3s%10s",x>0?1:-1,""))}NR>1{s=sprintf("%-20s",$1);for(n=2;n<=NF;n++)s=s"   "p($n);$0=s}1' FILE
   
2. gene_id-exonA_num       YTHDC1.1        YTHDC1.2        SRSF1
   
3. ENSG00000110719-5       -1               1              -1         
   
4. ENSG00000115760-14       1               1              -1         
   
5. ENSG00000151116-2        1               1               1         
   
6. ENSG00000132952-4        1              -1               1         
   
7. ENSG00000240771-9       -1              -1               1         
   
8. ENSG00000148773-9       -1              -1              -1         
   
9. ENSG00000071889-4       -1              -1               1         
   
10. ENSG00000075711-7       -1              -1               1         
    
11. ENSG00000154222-10       1              -1              -1     

复制代码

   

聆雨淋夜

1. awk 'BEGIN{getline;print}{for(i=2;i<=NF;i++)$i=$i>1?1:-1}1' file|column -t
   
2. gene_id-exonA_num   YTHDC1.1  YTHDC1.2  SRSF1
   
3. ENSG00000110719-5   -1        1         -1
   
4. ENSG00000115760-14  1         1         -1
   
5. ENSG00000151116-2   1         1         1
   
6. ENSG00000132952-4   1         -1        1
   
7. ENSG00000240771-9   -1        -1        1
   
8. ENSG00000148773-9   -1        -1        -1
   
9. ENSG00000071889-4   -1        -1        1
   
10. ENSG00000075711-7   -1        -1        -1
    
11. ENSG00000154222-10  1         -1        -1

复制代码

ppjer

回复 3# 聆雨淋夜

这种方法很好理解啊。

   

聆雨淋夜

回复 4# ppjer
因为我很笨，难了也想不出来

   

chenjiali1

回复 3# 聆雨淋夜


    那请问如果有0，想保证不变呢。0还是0

聆雨淋夜

回复 6# chenjiali1

1. awk 'BEGIN{getline;print}{for(i=2;i<=NF;i++){if($i>0)$i=1;else if($i<0)$i=-1}}1' file|column -t

复制代码

我是一隻羊

现学现卖..

1. awk 'function c(e){return e==0?"0":e>0?"1":e<0?"-1"}NR>1{s=sprintf("%-30s",$1);for(i=1;i++<NF;)s=s""sprintf("%-13s",c($i));$0=s}1' inputfile

复制代码

klainogn

1. awk 'NR>1{for(i=1;i++<NF;)$i=$i==0?0:gensub(/[^-]+.*$/,"1", "g", $i)}1' a
   
2. ene_id-exonA_num       YTHDC1.1        YTHDC1.2        SRSF1
   
3. ENSG00000110719-5 -1 1 -1
   
4. ENSG00000115760-14 1 1 -1
   
5. ENSG00000151116-2 1 1 1
   
6. ENSG00000132952-4 1 -1 1
   
7. ENSG00000240771-9 -1 -1 1
   
8. ENSG00000148773-9 -1 -1 -1
   
9. ENSG00000071889-4 -1 0 1
   
10. ENSG00000075711-7 -1 -1 1
    
11. ENSG00000154222-10 1 -1 0
    

复制代码

ppjer

回复 7# 聆雨淋夜


BEGIN{getline;print}  开头这是什么意思，启到什么作用