r - 要素がシーケンスで繰り返される回数を数える (R)

Question

A、B、および C としてコード化された一連のイベントがあります。各要素について、この要素が以前に繰り返された回数をカウントする必要があります。例えば：

x<-c('A','A','A','B','C','C','A','B','A','C')
y<-c(0,1,2,0,0,1,0,0,0,0)
cbind(x,y)

     x   y  
[1,] "A" "0"
[2,] "A" "1"
[3,] "A" "2"
[4,] "B" "0"
[5,] "C" "0"
[6,] "C" "1"
[7,] "A" "0"
[8,] "B" "0"
[9,] "A" "0"
[10,] "C" "0"

x から列 y を生成する必要があります。

Answer 1

と の組み合わせを使用しrleますsequence。

> sequence(rle(x)$lengths)-1
 [1] 0 1 2 0 0 1 0 0 0 0