如何移除R中列中的列？

Question

假设我有一个应急表(使用R中的table函数创建)。

             digit
ID         1  2  3  4  5  6  7  8  9
  1672120 23 16  8 10 12 13  3  3  5
  1672121  2  1  0  0  0  0  1  0  0
  1672122  1  2  1  0  1  0  0  1  0
  1672123  0  1  1  0  0  0  0  0  0
  1672124  1  1  0  1  1  0  0  0  0
  1672125  5  2  5  1  1  1  0  0  2
  1672127  2  1  2  1  0  0  0  0  0
  1672128  2  0  0  1  0  1  0  0  1
  1672129  1  0  1  0  0  0  1  0  0

如果我想从应急表中删除计数数小于5的行，我应该如何做？

Answer 1

由于您没有提供可重复的示例数据，这里有一个基于mtcars数据集的示例

让我们创建一个mtcars$gear与mtcars$carb的计数表

tbl <- table(mtcars$gear, mtcars$carb)
#
#    1 2 3 4 6 8
#  3 3 4 3 5 0 0
#  4 4 4 0 4 0 0
#  5 0 2 0 1 1 1

然后，我们只选择至少一个计数大于2的行。

tbl[apply(tbl > 2, 1, any), ]
#
#    1 2 3 4 6 8
#  3 3 4 3 5 0 0
#  4 4 4 0 4 0 0