シーケンス内の要素の繰り返し回数または反復回数を数えます。

Question

A、B、Cとコード化された一連のイベントがあります。各要素について、この要素が何回繰り返されたかをカウントする必要があります以前は繰り返されていない場合、カウンターは各行ごとに1つずつ減少します。各項目の最初の出会いには、それに対するカウンターはゼロです。例：

x<-c('A','A','A','B','C','C','A','B','A','C') 
y<-c(0,1,2,0,0,1,-2,-4,-4,-3) 
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" "-2" 
[8,] "B" "-4" 
[9,] "A" "-4" 
[10,] "C" "-3" 

xから列yを生成する必要があります。私は実行の長さのためにrleを使うことができることを知っていますが、カウンターが減少する特定のイベントの最後の出会いから時間を得る方法はわかりません。

Answer 1

私はこの問題を解決する方法の一種だと思います。 xのすべての異なる要素のインデックスを同じ方法で計算し、最初の位置でオフセットしてからそれらを結合することができます。

xのそれぞれのユニークな要素のための別途のインデックスを計算します。

library(data.table) 
sepIndex <- lapply(unique(x), function(i) { 
    s = cumsum(ifelse(duplicated(rleid(x == i)) & x == i, 1, -1)) + min(which(x == i)); 
    # use `rleid` with `duplicated` to find out the duplicated elements in each block. 
    # and assign `1` to each duplicated element and `-1` otherwise and use cumsum for cumulative index 
    # offset the index by the initial position of the element `min(which(x == i))` 
    replace(s, x != i, NA) 
}) 

私たちのそれぞれのユニークな要素のインデックスのリストを与える：

sepIndex 
# [[1]] 
# [1] 0 1 2 NA NA NA -2 NA -4 NA 

# [[2]] 
# [1] NA NA NA 0 NA NA NA -4 NA NA 

# [[3]] 
# [1] NA NA NA NA 0 1 NA NA NA -3 

はReduce機能を使用して一つにリストを組み合わせます

Reduce(function(x, y) ifelse(is.na(x), y, x), sepIndex) 
# [1] 0 1 2 0 0 1 -2 -4 -4 -3 

Answer 2

次のような方法があります。ベースR

positions <- sapply(unique(x),function(t) which(x %in% t)) 
values <- sapply(sapply(positions,diff),function(s) c(0,cumsum(ifelse(s>1,-s,s)))) 
df <- data.frame(positions=unlist(positions),values=unlist(values)) 
df[with(df,order(positions)),2]