any()函数使代码可读

> w <- c(1,2,3)
> any(w==1)
[1] TRUE

> v <- c('a','b','c')
> any(v=='b')
[1] TRUE

> any(v=='f')
[1] FALSE

为此，我非常喜欢grep()和grepl()。

Grep()返回一个整数向量，表示匹配的位置。

yo <- c("a", "a", "b", "b", "c", "c")

grep("b", yo)
[1] 3 4

grepl()返回一个逻辑向量，在匹配的位置有"TRUE"。

yo <- c("a", "a", "b", "b", "c", "c")

grepl("b", yo)
[1] FALSE FALSE  TRUE  TRUE FALSE FALSE

这些函数区分大小写。

我将根据输出对选项进行分组。对于所有的例子，假设下面的向量。

v <- c('z', 'a','b','a','e')

检查是否存在:

%in%

> 'a' %in% v
[1] TRUE

任何()

> any('a'==v)
[1] TRUE

is.element ()

> is.element('a', v)
[1] TRUE

寻找第一次出现的情况:

匹配()

> match('a', v)
[1] 2

求所有以指数向量形式出现的情况:

()

> which('a' == v)
[1] 2 4

寻找所有的逻辑向量:

==

> 'a' == v
[1] FALSE  TRUE FALSE  TRUE FALSE

编辑: 由于评论中提到的原因，从列表中删除grep()和grepl()

检查vector中是否存在元素的另一个选项是使用inops包中的{}%语法中的%，如下所示:

library(inops)
#> 
#> Attaching package: 'inops'
#> The following object is masked from 'package:base':
#> 
#>     <<-
v <- c('a','b','c','e')
v %in{}% c("b")
#> [1] FALSE  TRUE FALSE FALSE

由reprex包于2022-07-16创建(v2.0.1)

is.element()使代码更具可读性，与%中的%相同

v <- c('a','b','c','e')

is.element('b', v)
'b' %in% v
## both return TRUE

is.element('f', v)
'f' %in% v
## both return FALSE

subv <- c('a', 'f')
subv %in% v
## returns a vector TRUE FALSE
is.element(subv, v)
## returns a vector TRUE FALSE

还要找到元素“which”的位置，可以用作

pop <- c(3, 4, 5, 7, 13)

which(pop==13)

为了找到目标向量中不包含的元素，可以这样做:

pop <- c(1, 2, 4, 6, 10)

Tset <- c(2, 10, 7)   # Target set

pop[which(!(pop%in%Tset))]