如何刪除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