文字のベクトルの変化の指標を探すR

Question

私は以下の2種類の文字を持つベクトルを持っています。

dat <- c(rep("A", 3), rep("B", 2), rep("A", 5), rep("B", 4), rep("A", 8)) 

"A"と "B"を含んでいます。私は "A"→ "B"と "B"→ "A"の時にすべての指標を探したい。例えば

、

> dat 
[1] "A" "A" "A" "B" "B" "A" "A" "A" "A" "A" "B" "B" "B" "B" "A" "A" "A" "A" "A" "A" "A" "A" 

は、私は2つの数値ベクトルを計算する：A2B（3、10）であるべきであり、B2A（5、14）であるべきです。

Answer 1

diffs <- diff(as.integer(as.factor(dat))) 
A2B <- which(diffs == 1L) 
B2A <- which(diffs == - 1L) 

Answer 2

そして末尾遷移

cumsum(r$lengths)[which(r$value == "B") - 1L] # A2B   
cumsum(r$lengths)[which(r$value == "A") - 1L] # B2A