在R中的0-1向量内找到精确向量（带一个）

Question

我想在另一个向量中找到一个向量。我将始终在零和一的向量内寻找只有“一”的向量。 例如 c(0,0,1,1,1,0,1) 中的 c(1,1,1)。 我已经想出了一个解决方案：

grepl(paste(x1,collapse=";"),paste(x2,collapse=";"))

问题是我想搜索 exact 向量所以

c(1,1) inside c(0,1,1,0) --> TRUE

c(1,1) inside c(0,1,1,1) --> FALSE

Answer 1

我们可以为此使用rle

f1 <- function(vec1, patvec) {
     with(rle(vec1), lengths[as.logical(values)]) == length(patvec)
  }

f1(v1, pat)
#[1] TRUE
f1(v2, pat)
#[1] FALSE

---

或者split通过vector的rleid得到vector，然后检查all是否找到patternvector的元素

any(sapply(split(v1, data.table::rleid(v1)), function(x) all(pat %in% x)))
#[1] TRUE

数据

pat <- c(1, 1)
v1 <- c(0,1,1,0)
v2 <- c(0,1,1,1)