行列がありますが、すべての値が25未満の場合は0に置き換えたいと思います。最初の行と列を維持したいです。
p1 p10 p16 p19 p25 p3 p5 p6 p8 p9
call1 567 0 3 0 18 17 8 4 6 7
call20 4900 7 6 2 23 26 20 14 12 29
echo34 73784 1 4 1 6 4 1 4 8 5
kol45 145873 6 4 0 11 17 5 9 22 11
値を削除すると、行と列名も削除されますが、そのようなものは望ましくありません。
答え1
これを試してみてください。
awk 'NR>1{for(i=2;i<=NF;i++)$i=$i<25?0:$i}1' infile
NR>1 最初の行を維持
i=2 最初の列を保持
答え2
Rの使用:
dat <- as.matrix(read.table(text="p1 p10 p16 p19 p25 p3 p5 p6 p8 p9
call1 567 0 3 0 18 17 8 4 6 7
call20 4900 7 6 2 23 26 20 14 12 29
echo34 73784 1 4 1 6 4 1 4 8 5
kol45 145873 6 4 0 11 17 5 9 22 11"))
dat
# p1 p10 p16 p19 p25 p3 p5 p6 p8 p9
# call1 567 0 3 0 18 17 8 4 6 7
# call20 4900 7 6 2 23 26 20 14 12 29
# echo34 73784 1 4 1 6 4 1 4 8 5
# kol45 145873 6 4 0 11 17 5 9 22 11
dat[-1, -1][dat[-1, -1] < 25] <- 0
dat
# p1 p10 p16 p19 p25 p3 p5 p6 p8 p9
# call1 567 0 3 0 18 17 8 4 6 7
# call20 4900 0 0 0 0 26 0 0 0 29
# echo34 73784 0 0 0 0 0 0 0 0 0
# kol45 145873 0 0 0 0 0 0 0 0 0
答え3
これはトリックを行うようです
$ awk '{ for (field=1;field<=NF;field++) { if( NR > 1 && field>=2 && $field < 25 ) { $field=0 } } print }' input
p1 p10 p16 p19 p25 p3 p5 p6 p8 p9
call1 567 0 0 0 0 0 0 0 0 0
call20 4900 0 0 0 0 26 0 0 0 29
echo34 73784 0 0 0 0 0 0 0 0 0
kol45 145873 0 0 0 0 0 0 0 0 0
答え4
間隔を維持するには、次のようにします。
perl -pe '
if ($. > 1) {
$skip = 2;
s{ +\d+}{
--$skip > 0 || $& >= 25 ? $& : " " x (length($&) - 1) . "0"
}ge
}' < file
圧縮:
perl -pe'if($.>1){$s=2;s@ +\d+@--$s>0||$&>24?$&:" "x(length($&)-1)."0"@ge}' file