r - 最低频率表

Question

我有一个数字向量，我只想保留所有条目以最小频率出现:

set.seed(1)

min <- 3

vec <- rpois(20, 1)
vec
#> 0 1 1 2 0 2 3 1 1 0 0 0 1 1 2 1 1 4 1 2

table(vec)
#> vec
#> 0 1 2 3 4 
#> 5 9 4 1 1

在这种情况下，我想丢弃 3 和 4，只保留 0、1 和 2，因为它们出现了 3 次以上。

Answer 1

一个选项使用ave

vec[ave(vec, vec, FUN = length) > min]
#[1] 0 1 1 2 0 2 1 1 0 0 0 1 1 2 1 1 1 2