使用 data.table R 以滚动方式提取累积唯一值（重置和恢复）

给定一个 data.table，我想提取累积的唯一元素，直到达到三个唯一值，然后重置并恢复：

y <- data.table(a=c(1, 2, 2, 3, 3, 4, 3, 2, 2, 5, 6, 7, 9, 8))

所需的输出 unique_acc_roll_3 为：

a   unique_acc_roll_3
1                   1
2                 1 2
2                 1 2
3               1 2 3
3               1 2 3  
4                   4  #4 is the forth element, so it resets and start again
3                 3 4
2               2 3 4
2               2 3 4
5                   5  #5 is the forth element, so it resets and start again 
6                 5 6
7               5 6 7
9                   9  #9 is the forth element, so it resets and start again
8                 8 9

因为它递归地引用回来，所以我真的陷入了困境......真实数据很大，所以 data.table 解决方案会很棒。

我想不出任何方法来避免for本质上是循环，除了将其隐藏在Reduce称呼。我的逻辑是保留union- 计算每行的每个新值，直到集合增长到length == n，此时新值将用作循环下一次迭代的起点。

unionlim <- function(x, y, n=4) {
  u <- union(x,y)
  if(length(u) == n) y else u
}

y[, out := sapply(Reduce(unionlim, a, accumulate=TRUE), paste, collapse=" ")]

#    a   out
# 1: 1     1
# 2: 2   1 2
# 3: 2   1 2
# 4: 3 1 2 3
# 5: 3 1 2 3
# 6: 4     4
# 7: 3   4 3
# 8: 2 4 3 2
# 9: 2 4 3 2
#10: 5     5
#11: 6   5 6
#12: 7 5 6 7
#13: 9     9
#14: 8   9 8

这远不是地球上最快的代码，但快速测试表明，在我的像样的机器上，它可以在大约 15 秒内处理大约 100 万个案例。

bigy <- y[rep(1:nrow(y), 75e3)]
system.time({
  bigy[, out := sapply(Reduce(unionlim, a, accumulate=TRUE), paste, collapse=" ")]
})
#   user  system elapsed 
#  14.27    0.09   15.06