如何将不是Top10的所有内容归为“其他”

Question

我正在尝试创建一个频率为因子的图。但是我有70个不同的因素。这就是为什么我想为非Top10的所有对象创建一个“其他”组的原因。

当前正在与top_n()函数一起创建前十名。

ProblemFrequency <- count(Disruptions, 'Problem')
Top10 <- top_n(ProblemFrequency, n=10, freq)

通过将within()与if-else语句结合使用，我已经可以进行“其他”分组

ProblemFrequency <- within(ProblemFrequency, other.group <- ifelse(freq > 100, as.character(Problem), "Other"))
ProblemFrequency <- within(ProblemFrequency, relevel(factor(other.group), "Other"))

我将这两部分分开工作，但是我似乎无法弄清楚如何将它们结合起来。我正在使用一个闪亮的应用程序，用户可以对其进行过滤，Top10及其频率不断变化，因此我不能仅使用方程式。

我认为if语句应该检查该因素是否在Top10中。如果不是，请将其分组。