这里我们可以使用rle

out <- lapply(list_of_matrices, function(m) {
   t(apply(m, 1, function(u)   {
         rl <- rle(u < 100)
         rl$values[(rl$lengths < 3) & rl$values] <- FALSE
         as.integer(inverse.rle(rl))
}))
})

• 输出

> out[[1]]
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]    0    0    0    0    0    0    0    0    0     0
[2,]    0    0    0    0    1    1    1    1    1     0
[3,]    1    1    1    1    1    0    1    1    1     0
[4,]    0    0    0    0    0    0    0    0    0     0
[5,]    0    0    0    0    0    0    0    0    0     0

> list_of_matrices[[1]]
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]  118  114   88  112  100  116  105  119  112   114
[2,]   98  108   87  116   87   97   85   86   83   100
[3,]   87   89   96   95   97  112   85   80   94   105
[4,]  102  105   87  100   91  116  114   85   82   120
[5,]  113  120   92   91  110   99  112  118   93    80

如果它是一个list的向量，我们可以通过循环list直接应用rle

lapply(lst1, function(u) {
   rl <- rle(u < 100)
   rl$values[(rl$lengths < 3) & rl$values] <- FALSE      
    as.integer(inverse.rle(rl))
  })

数据

set.seed(24)
list_of_matrices <- replicate(3, matrix(sample(80:120, 5 * 10, 
  replace = TRUE), ncol = 10, nrow = 5), simplify = FALSE)