Использование 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