删除具有小于X的唯一计数的因子

Question

我正在尝试删除具有小于5的唯一计数的因子。我尝试使用apply和subsetting两种方法，但是没有找到解决方案。任何帮助，将不胜感激。

df <- data.frame(letters=letters[1:7],
                 numbers=seq(1:25))

levels(df$letters)
## [1] "a" "b" "c" "d" "e" "f" "g"

#Attempt 1
df[apply(df$letters, 1, function(x) row(unique(x))) < 5]
#Attempt 2
df <- df[which(unique(df$letters < 5)),]