从向量中删除至少 x 次不重复的值

Question

给定一个向量:

例如。:

a = c(1, 2, 2, 4, 5, 3, 5, 3, 2, 1, 5, 3)

使用 a[a%in%a[duplicated(a)]] 我可以删除不重复的值。但是，它仅适用于仅出现一次的值。

我将如何继续删除这三次中不存在的所有值？ (或更多，在其他情况下)

预期的结果是:

2 2 5 3 5 3 2 5 3

删除了 1 和 4，因为它们只出现两次和一次

Answer 1

您可以使用 ave 函数在一行中完成此操作:

a[ave(a, a, FUN=length) >= 3]
# [1] 2 2 5 3 5 3 2 5 3

对于向量 ave(a, a, FUN=length) 中的每个元素 a[i] ，对 a 的调用返回 a[i] 出现在 a 中的总次数。然后您可以对 a 进行子集化，限制为总次数为 3 或更多的索引。