벡터에서 같은 수의 시퀀스 길이 계산

Question

벡터 c(1,1,1,0,1,1)을 고려하십시오.

아이디어는 동일한 숫자의 각 시퀀스를 계산하는 것입니다. 동수의

1. 길이, 즉 1,1,1 즉 0, 즉 1,1 2

이다 동수 1 개

길이, 동수의 3

길이

모든 숫자를 1 또는 0으로 변환하는 코드를 작성했습니다. 새 벡터에 동일한 수의 시퀀스를 추출하고 테이블 함수를 사용하여 계산하는 것이 합리적입니까? 아니면 다른 방법이 있습니까?

어떤 조언을 주셔서 감사합니다!

Answer 1

사용 rle :

x <- c(1,1,1,0,1,1) 
rle(x) 
# Run Length Encoding 
# lengths: int [1:3] 3 1 2 
# values : num [1:3] 1 0 1