Поскольку вы не предоставляете воспроизводимые примеры данных, вот пример, основанный на наборе данных 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
.