计算因子连续出现的值

Question

我试图计算给定变量连续值出现的次数。我想将这些值存储在另一个变量中。它类似于这个问题here，但我想为每个因素执行它 - 有超过75,000个不同的因素。

Answer 1

以下是我使用的答案：我想计算1和0的字符串数，并使用以下代码。

out.full <- within(df, {
smaller <- unlist(lapply(split(var1, var2), function(x) sequence(rle(x)$lengths)))
cum.ones <- replace(smaller, var1 == 1,NA)
cum.zeroes <- replace(smaller, var1 == 0, NA)
rm(smaller)
})