不同长度向量列表中的匹配数

Question

I want to match a number within a list containing vector of different lengths. Still my solution (below) doesn't match anything beyond the first item of each vector.

seq_ <- seq(1:10)
list_ <- list(seq_[1:3], seq_[4:7], seq_[8:10])
list_ 
#  [[1]]
#  [1] 1 2 3
# 
#  [[2]]
#  [1] 4 5 6 7
# 
# [[3]]
#  [1]  8  9 10

but

for (i in seq_) {
  print(match(i,list_))
}
# [1] 1
# [1] NA
# [1] NA
# [1] 3
# [1] NA
# [1] NA
# [1] NA
# [1] NA
# [1] NA
# [1] NA

Answer 1

In the general case, you probably will be happier with which , as in

EDIT: rewrote to show the full looping over values.

seq_ <- seq(1:10)
list_ <- list(seq_[1:3], seq_[4:7], seq_[8:10])
matchlist<-list(length=length(list_))
    for( j in 1:length(list_)) {
       matchlist[[j]] <-  unlist(sapply(seq_, function(k) which(list_[[j]]==k) ))
    }

That will return the locations of all matches. It's probably more clear what's happening if you create an input like my.list <- list(sample(1:10,4,replace=TRUE), sample(1:10,7,replace=TRUE))