如果被少于五个连续零包围，则将向量中的零更改为一

我有一个向量0s and 1s 并想要识别字符串所在的索引0s 被包围1s。如果数量0之间的1s 小于或等于 5，我想将这些零更改为1s.

这是一个例子：

> x <- c(0,0,0,1,1,1,0,0,0,1,1,0,0,0,0,0,0,1,1,1,1)

在位置7,8,9中，我只有三个零，因此需要将其更改为1。其他零都超过5个，因此不需要更改。

生成的向量应如下所示：

> x_converted <- c(0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,1)

我正在这样做for循环和if else声明，但我确信必须有一种更快的方法来做到这一点。

谢谢。

一个可能的解决方案是rle它不会改变开头或结尾处的零的短序列x:

# create the run length encoding
r <- rle(x)

# create an index of which zero's should be changed
i <- r$values == 0 & r$lengths < 5 & 
  c(tail(r$values, -1) == 1, FALSE) & 
  c(FALSE, head(r$values, -1) == 1)

# set the appropriate values to 1
r$values[i] <- 1

# use the inverse of rle to recreate the vector
inverse.rle(r)

这使：

[1] 0 0 0 1 1 1 1 1 1 1 1 0 0 0 0 0 0 1 1 1 1