Проверьте, содержит ли вектор заданный элемент

StackOverflow https://stackoverflow.com/questions/1169248

  •  19-09-2019
  •  | 
  •  

Вопрос

Как проверить, содержит ли вектор заданное значение?

Это было полезно?

Решение

Оба match() (возвращает первое появление) и %in% (возвращает логическое значение) функции предназначены для этого.

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

'b' %in% v
## returns TRUE

match('b',v)
## returns the first location of 'b', in this case: 2

Другие советы

is.element() делает код более читаемым и идентичен %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

В любой() функция обеспечивает читаемость кода

> 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

Я сгруппирую параметры на основе выходных данных.Предположим, что для всех примеров используется следующий вектор.

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

Для проверки наличия:

%в%

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

любой()

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

is.элемент()

> 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() из списка по причине, указанной в комментариях

Вы можете использовать %in% оператор:

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

Также, чтобы найти положение элемента, "который" может быть использован как

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))]

Мне действительно нравятся 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

Эти функции чувствительны к регистру.

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top