R에서 시퀀스의 반복되는 반복 부분을 계산하는 방법은 무엇입니까?

Question

R에서 시퀀스의 반복 부분을 계산할 수 있습니까? 예를 들어 :

x<- c(1,3.0,3.1,3.2,1,1,2,3.0,3.1,3.2,4,4,5,6,5,3.0,3.1,3.2, 
     3.1,2,1,4,6,4.0,4,3.0,3.1,3.2,5,3.2,3.0,4) 

IT는 서브 3.0,3.1,3.2이 발생하는 시간을 계산 할 수 있습니까? 따라서이 예제에서는 다음과 같아야합니다. 4

Answer 1

나는 같은 것을 할 것 :

pattern <- c(3, 3.1, 3.2) 
len1 <- seq_len(length(x) - length(pattern) + 1) 
len2 <- seq_len(length(pattern))-1 
sum(colSums(matrix(x[outer(len1, len2, '+')], 
    ncol=length(len1), byrow=TRUE) == pattern) == length(len2)) 

PS를 : 당신이 각 인스턴스의 시작을 얻을 것이다 sumwhich에 변경.

Answer 2

gregexpr을 문자열로 바꿀 수 있습니다.

sum(gregexpr("3 3.1 3.2", paste(x, collapse=" "), fixed=TRUE)[[1]] != -1) 
[1] 4 

Answer 3

Carl Witthoft의 seqle function이 여기 유용 할 수 있습니다.

기능은 다음과 같습니다

seqle <- function(x,incr=1) { 
    if(!is.numeric(x)) x <- as.numeric(x) 
    n <- length(x) 
    y <- x[-1L] != x[-n] + incr 
    i <- c(which(y|is.na(y)),n) 
    list(lengths = diff(c(0L,i)), 
     values = x[head(c(0L,i)+1L,-1L)]) 
} 

이 데이터에 적용, 그것은 다음과 같아야합니다

temp <- seqle(x, incr=.1) 
temp 
# $lengths 
# [1] 1 3 1 1 1 3 1 1 1 1 1 3 1 1 1 1 1 1 1 3 1 1 1 1 
# 
# $values 
# [1] 1.0 3.0 1.0 1.0 2.0 3.0 4.0 4.0 5.0 6.0 5.0 3.0 3.1 2.0 1.0 4.0 
# [17] 6.0 4.0 4.0 3.0 5.0 3.2 3.0 4.0 

을 이제 우리가 어떻게 그것을 읽습니까? lengths은 우리 벡터가 1, 3, 1, 1, 1, 3 ... values의 순서로 길이 3의 시퀀스의 첫 번째 값이 " 3.0 "이면, 길이 3의 다음 순서의 첫 x 째 값은"3.0 "이됩니다.

data.frame으로보기가 더 쉽습니다. 이 예에서

data.frame(temp)[temp$lengths > 1, ] 
# lengths values 
# 2  3  3 
# 6  3  3 
# 12  3  3 
# 20  3  3 

는 모든 시퀀스의 길이는 동일, 그들은 같은 값에서 시작, 그래서 우리는 바로 위의 data.frame을 결과의 행 수를 보면 답을 얻을 수 있습니다.

Answer 4

하나 더 (일반적인 이동 창) 방법 :

x <- c(1,3.0,3.1,3.2,1,1,2,3.0,3.1,3.2,4,4,5,6,5,3.0,3.1,3.2, 3.1,2,1,4,6,4.0,4,3.0,3.1,3.2,5,3.2,3.0,4) 
s <- c(3, 3.1, 3.2) 

sum(apply(embed(x, length(s)), 1, function(y) {all(y == rev(s))})) 
# [1] 4 

이 embed의 출력은 무슨 일이 일어나고 있는지 이해를 참조하십시오. 아룬으로

는 여기 apply 지적 꽤 느리다, 하나는이 훨씬 빨리으로 얻을 수 아룬의 matrix 트릭과 함께 embed를 사용할 수 있습니다

sum(colSums(matrix(embed(x, length(s)), 
        byrow = TRUE, nrow = length(s)) == rev(s)) == length(s))