Làm cách nào để đếm số lần chạy theo chuỗi?

Question

Trong R, điều gì sẽ là cách hiệu quả nhất/đơn giản nhất để đếm số lần chạy các phần tử giống nhau trong một chuỗi?

Ví dụ, làm thế nào để đếm số lượng số không liên tiếp trong một chuỗi các số nguyên không âm:

x <- c(1,0,0,0,1,0,0,0,0,0,2,0,0) # should give 3,5,2 

Answer 1

Sử dụng RLE():

y <- rle(c(1,0,0,0,1,0,0,0,0,0,2,0,0)) 
y$lengths[y$values==0] 

Answer 2

này có thể được thực hiện trong một hiệu quả cách sử dụng chỉ mục nơi giá trị thay đổi:

x <- c(1,0,0,0,1,2,1,0,0,1,1) 

Tìm nơi giá trị thay đổi:

diffs <- x[-1L] != x[-length(x)] 

Lấy chỉ số, và sau đó nhận được sự khác biệt về chỉ số sau:

idx <- c(which(diffs), length(x)) 
diff(c(0, idx))