如何用另一个矢量对矢量进行子集划分？

Question

鉴于这种

data <- list(a=c(1,3,5), b=c(3,4,7,4,8,6), c=c(3,4,8,3,4,8,0)) 
sample <- c(4,8) 

有什么办法来检索包含序列c(4,8)列表成员？

在这种情况下，那将是data$b和data$c。

Answer 1

这将从列表 - data返回合适的逻辑矢量为项目的选择：

sapply(data, function(x) any(
           intersect(which(x==sample[1]), # check for first value 
    # then see if any of those locations also have successive differences are the same as in the `sample` item. 
             which(diff(x) == diff(sample))) )) 

$a 
[1] FALSE 

$b 
[1] TRUE 

$c 
[1] TRUE 

插图：

data[ sapply(data, function(x) any(intersect( which(x==sample[1]), 
               which(diff(x) == diff(sample))))) 
    ] 
#---------- 
$b 
[1] 3 4 7 4 8 6 

$c 
[1] 3 4 8 3 4 8 0 

Answer 2

data[grep(paste0(c("", sample, ""), collapse = "_"), 
     paste0("_", sapply(data, paste0, collapse = "_"), "_"))] 
# $b 
# [1] 3 4 7 4 8 6 
# 
# $c 
# [1] 3 4 8 3 4 8 0