如何返回 R 中序列的行索引？ [复制]

我正在尝试找到序列的行位置。我的意思是：

x<-c(-1,1)
y<-c(1,-1,1,0,-1,0,0)
match(x,y)
[1] 2 1

为什么不返回 2 3 ？ （这就是我想要它做的）

如果我这样做：

y<-c(0,-1,1,0,-1,0,0)
match(x,y)
[1] 2 3

有用。建议？

这是一个想法。imatch()会发现all匹配的索引，以防有多个匹配集。它通过检查两个连续的索引（一次一对）并检查它们是否与索引相同来实现这一点。x向量。不匹配的内容将被删除，并返回匹配的列表。

imatch <- function(x, y) {
    Filter(
        Negate(is.null), 
        lapply(seq_along(length(y)-1), function(i) {
            ind <- i:(i+1)
            if(identical(y[ind], x)) ind 
        })
    )
}

imatch(c(-1, 1), c(1, -1, 1, 0, -1, 0, 0))
# [[1]]
# [1] 2 3

imatch(c(-1, 1), c(1, -1, 1, 0, -1, 1, 0))
# [[1]]
# [1] 2 3
#
# [[2]]
# [1] 5 6