如何在至少X列中打印大于N的行？

Question

例如，如何在至少2列中打印大于300的行？

以下代码打印的行大于300

mtcars[apply(mtcars[, -1], MARGIN = 1, function(x) any(x > 300)), ]

Answer 1

我想到了几种方法：

mtcars[apply(mtcars, 1, FUN = function(x) sum(x > 300) >= 2),]

或

mtcars[rowSums(mtcars > 300) >= 2,]

两者都返回

#               mpg cyl disp  hp drat   wt qsec vs am gear carb
# Maserati Bora  15   8  301 335 3.54 3.57 14.6  0  1    5    8