r - 如何计算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)

是否可以计算子序列 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:通过将 sum 更改为 which，您将获得每个实例的开始。