r - 保留符合特定条件的数据框行 - 扩展

Question

我很快问了以下问题：

保留符合特定条件的数据框行

我想知道是否可以扩展提供的代码，例如，只给我那些 b 列中的数字至少出现在 4 个字母 A、B、C 和 D 中的 X 中的行？因此，例如，数字 5 出现在 B、C、D 的 a 列中，但不在 A 中。但是，我想返回数字出现在 4 个字母中的至少 2 个中的所有行。这意味着，数字 5 当然应该加上所有字母中出现的所有数字。希望我想说的很清楚。

提前谢谢了！

Answer 1

我发现我的解决方案很容易扩展：

keep <- apply( x, 1,
          function( y ) length( which( LETTERS[1:4] %in% x[ x[,2] == y[2], 1 ] ) ) >= 3 )