如何通过另一个向量对向量进行子集化？

2 回答

• 3

  这将返回一个适合从列表中选择项目的逻辑向量 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
  

  回复于 2024-05-07T01:35:07+08:00
• 1

  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
  

  回复于 2024-05-07T01:35:07+08:00