Sprawdź, czy wektor zawiera dany element

is.element() sprawia, że kod jest bardziej czytelny i jest identyczny z %in%

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

Funkcja any() tworzy czytelny kod

> 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

Możesz użyć operatora %in%:

vec <- c(1, 2, 3, 4, 5)
1 %in% vec # true
10 %in% vec # false

Pogrupuję opcje na podstawie wyjścia. Załóżmy następujący wektor dla wszystkich przykładów.

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

do sprawdzania obecności:

%w%

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

Dowolne()

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

Jest.element()

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

za znalezienie pierwszego occurance:

Mecz()

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

do znalezienia wszystkich wystąpień jako wektor indeksy:

Które()

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

do znajdowania wszystkich wystąpień jako wektor logiczny:

==

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

Edytuj: Usunięcie grep () i grepl () z listy z przyczyn wymienionych w komentarzach

Również do znalezienia pozycji elementu "który" może być użyty jako

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

which(pop==13)

I aby znaleźć elementy, które nie są zawarte w wektorze docelowym, można to zrobić:

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

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

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

Bardzo lubię grep () i grepl () do tego celu.

Grep () zwraca wektor liczb całkowitych, które wskazują, gdzie są dopasowania.

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

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

Grepl () zwraca wektor logiczny z "TRUE" w miejscu dopasowania.

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

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

Te funkcje uwzględniają wielkość liter.