主页 / ubuntu / 问题 / 1157736
Accepted
Kousalya Devi
Asked: 2019-07-12 23:08:54 +0800 CST

当所有列都小于一时如何删除一行

  • 772

我有一个矩阵文件

a  0.34  3.03  1.92
b  1.35  1.34  0.63
c  0.66  2.32  1.01
d  0.23  2.07  0.22
e  0.34  0.47  0.55

我必须删除其列的所有值都小于 1 的行。

预期的输出文件是

a  0.34  3.03  1.92
b  1.35  1.34  0.63
c  0.66  2.32  1.01
d  0.23  2.07  0.22

我得到了这个链接，当所有列都小于零时，他们会删除行https://stackoverflow.com/questions/20592611/how-to-delete-rows-where-all-the-columns-are-zero，他们在哪里使用R 中的行总和。但我认为行总和在这种情况下不起作用。

sed awk

1 个回答

  1. Best Answer

    要排除所有（数字）列值小于 1 的行，请打印至少一列的值大于或等于 1 的行：

    $ awk '{for(i=2;i<=NF;i++) if($i >= 1){print; next}}' file
a  0.34  3.03  1.92
b  1.35  1.34  0.63
c  0.66  2.32  1.01
d  0.23  2.07  0.22

    或者

    perl -alne 'shift @F; print if grep { $_ >= 1 } @F' file

    或（更明确地说，使用anyList::Util 模块）

    perl -MList::Util=any -alne 'shift @F; print if any { $_ >= 1 } @F' file

    您提出的 R 命令（发表在评论中）很接近：我认为它失败了，因为您没有排除第一个（非数字）列 ex。

    > dat = read.table("file")
>
> dat
  V1   V2   V3   V4
1  a 0.34 3.03 1.92
2  b 1.35 1.34 0.63
3  c 0.66 2.32 1.01
4  d 0.23 2.07 0.22
5  e 0.34 0.47 0.55
>
> dat[!apply(dat, 1, function(x) all(x < 1)), ]
  V1   V2   V3   V4
1  a 0.34 3.03 1.92
2  b 1.35 1.34 0.63
3  c 0.66 2.32 1.01
4  d 0.23 2.07 0.22
5  e 0.34 0.47 0.55
>

    但

    > dat[!apply(dat[,-1], 1, function(x) all(x < 1)), ]
  V1   V2   V3   V4
1  a 0.34 3.03 1.92
2  b 1.35 1.34 0.63
3  c 0.66 2.32 1.01
4  d 0.23 2.07 0.22
>
    • 1

相关问题