r - 检测向量中的第 n 次重复(和第 n+1 次，...)

Question

给定一个向量，如:

x <- c("r", "r", "b", "b", "b", "b", "r", "r", "y", "y")

如何检测代表值的(至少)第 n 次重复的元素？

对于这种情况，如果我们不想要超过两次的重复，这应该给出:

duplicatedN(x, 2)
# F, F, F, F, T, T, T, T, F, F

换句话说:如果前面至少有 N 个元素具有相同的值 v v 的元素 i 应该被标记为 TRUE.

Answer 1

使用 data.table 的可能解决方案:

library(data.table)

duplicatedN <- function(x,n=2){
  DT <- data.table(A=x)
  DT[,dup:=1:.N > n,by=A]
  return(DT$dup)
}

x <- c("r", "r", "b", "b", "b", "b", "r", "r", "y", "y")

> duplicatedN(x,1)
 [1] FALSE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE
> duplicatedN(x,2)
 [1] FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE
> duplicatedN(x,3)
 [1] FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE
> duplicatedN(x,4)
 [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE