根据特定条件检查连续值出现的次数

Question

我想找出大于特定数字的 2/3/4/5/6 连续数字出现在向量中的次数。例如对于以下向量

x=c(1,1,3,4,9,1,9,1,5,4,5,2,1,1,4,6) 

计算两个连续数字 > 3 (4,9) & (4,6) = 2 的次数 三个连续数字 > 3（例如 5,4,5）= 1 以此类推 4,5,6 个连续数字

下面的代码只给出了一个值连续出现的次数。

runs <- rle(x) 
with(runs, table(values, lengths))

非常感谢任何帮助。

谢谢 谢谢

Answer 1

试试：

f1 <- function(vec, val, n){
rl <- rle(vec >val)
sum(rl$lengths[rl$values]==n)
}

 f1(x, 3, 2)
 #[1] 2
 f1(x, 3, 3)
 #[1] 1

或者一次性完成所有操作

sapply(2:6, function(y) {rl <- rle(x>y);sum(rl$lengths[rl$values]==2)})
# [1] 1 2 0 0 0
sapply(2:6, function(y) {rl <- rle(x>y);sum(rl$lengths[rl$values]==3)})
#[1] 2 1 0 0 0
sapply(2:6, function(y) {rl <- rle(x>y);sum(rl$lengths[rl$values]==4)})
#[1] 0 0 0 0 0