R函数，用于计算值低于特定值的频率

这对我来说是一个怪物，在R脚本中没有任何经验。我有一个数据框，有57列，30行数据

以下是我试图做的：

1） 转到每列：

2） 计数2/3/4/5/6/7/8/9连续值小于-1的次数

3） 将结果打印为文本文件

4） 对第二列重复步骤2和3，依此类推

我环顾四周，也看看堆垛机

这是我的一列数据：

data<-c(-0.996,-1.111,-0.638,0.047,0.694,1.901,2.863,2.611,2.56,2.016,0.929,-0.153,-0.617,-0.143
0.199,0.556,0.353,-0.638,0.347,0.045,-0.829,-0.882,-1.143,-0.869,0.619,0.923,-0.474,0.227
0.394,0.789,1.962,1.132,0.1,-0.278,-0.303,-0.606,-0.705,-0.858,-0.723,-0.081,1.206,2.329
1.863,2.1,1.547,2.026,0.015,-0.441,-0.371,-0.304,-0.668,-0.953,-1.256,-1.185,-0.891,-0.569
0.485,0.421,-0.004,0.024,-0.39,-0.58,-1.178,-1.101,-0.882,0.01,0.052,-0.166,-1.703,-1.048
-0.718,-0.036,-0.561,-0.08,0.272,-0.041,-0.811,-0.929,-0.853,-1.047,0.431,0.576,0.642,1.62
2.324,1.251,1.384,0.195,-0.081,-0.335,-0.176,1.089,-0.602,-1.134,-1.356,-1.203,-0.795,-0.752
-0.692,-0.813,-1.172,-0.387,-0.079,-0.374,-0.157,0.263,0.313,0.975,2.298,1.71,0.229,-0.313
-0.779,-1.12,-1.102,-1.01,-0.86,-1.118,-1.211,-1.081,-1.156,-0.972)

数据（大量编辑）

固定数据向量（缺少逗号）：

然后仅提取
TRUE
运行的长度：

print(runs$lengths[which(runs$values)])
##  [1] 1 1 2 2 2 1 3 1 3 4

并且，迭代数据帧的列，如前所示：

# make a data frame from sampled versions of data

set.seed(1492) # repeatable

df <- data.frame(V1=data,
                 V2=sample(data, length(data), replace=TRUE),
                 V3=sample(data, length(data), replace=TRUE),
                 V4=sample(data, length(data), replace=TRUE))

# do the extraction

for (col in 1:ncol(df)) {
    runs <- rle(df[, col] < -1)
    print(runs$lengths[which(runs$values)])
}

##  [1] 1 1 2 2 2 1 3 1 3 4
##  [1] 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1
##  [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1
##  [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

#从采样的数据版本生成数据帧
种子集（1492）#可重复
非常感谢。我运行了脚本，但它没有给我运行。我编辑了这个问题来反映我的问题，谢谢，但这只是一个向量，对吗？如果我需要对数据帧中的所有列重复此操作，该怎么办？如前所述，您可以使用
for
循环。再次将其添加到示例中。
runs <- rle(data < -1)

print(runs)

## Run Length Encoding
##   lengths: int [1:21] 1 1 20 1 29 2 8 2 4 2 ...
##   values : logi [1:21] FALSE TRUE FALSE TRUE FALSE TRUE ...

print(runs$lengths[which(runs$values)])
##  [1] 1 1 2 2 2 1 3 1 3 4

# make a data frame from sampled versions of data

set.seed(1492) # repeatable

df <- data.frame(V1=data,
                 V2=sample(data, length(data), replace=TRUE),
                 V3=sample(data, length(data), replace=TRUE),
                 V4=sample(data, length(data), replace=TRUE))

# do the extraction

for (col in 1:ncol(df)) {
    runs <- rle(df[, col] < -1)
    print(runs$lengths[which(runs$values)])
}

##  [1] 1 1 2 2 2 1 3 1 3 4
##  [1] 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1
##  [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1
##  [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1