seleccionar - ¿Existe una función R para encontrar el índice de un elemento en un vector?

operaciones con vectores en r

Question

En R, tengo un elemento x y un vector v . Quiero encontrar el primer índice de un elemento en v que es igual a x . Sé que una forma de hacer esto es: which(x == v)[[1]] , pero eso parece excesivamente ineficiente. ¿Hay una forma más directa de hacerlo?

Para los puntos de bonificación, ¿existe una función que funcione si x es un vector? Es decir, debe devolver un vector de índices que indiquen la posición de cada elemento de x en v .

Answer 1

La función Position en funprog {base} también hace el trabajo. Le permite pasar una función arbitraria y devuelve la primera o la última coincidencia.

Position(f, x, right = FALSE, nomatch = NA_integer)

Answer 2

La función de match funciona en vectores:

x <- sample(1:10)
x
# [1] 4 5 9 3 8 1 6 10 7 2
match(c(4,8),x)
# [1] 1 5

match solo devuelve el primer encuentro de un match, según lo solicites. Devuelve la posición en el segundo argumento de los valores en el primer argumento.

Para coincidencias múltiples, %in% es el camino a seguir:

x <- sample(1:4,10,replace=TRUE)
x
# [1] 3 4 3 3 2 3 1 1 2 2
which(x %in% c(2,4))
# [1] 2 5 9 10

%in% devuelve un vector lógico siempre que el primer argumento, con un valor TRUE si ese valor se puede encontrar en el segundo argumento y un FALSE caso contrario.

Answer 3

R ha sobrecargado el operador doble es igual a == con un método para encontrar el índice de una aguja en un pajar de vectores. Produce un vector logical , que contiene valores TRUE para cada partida en el pajar.

Ejemplo:

haystack <- c(1, 2, 4, 3, 4)
needle <- 4
indices <- needle == haystack
indices
[1] 3 5
haystack[indices]
[1] 4 4

Funciona si ambos son vectores, y se pueden expandir para usar también múltiples vectores.

Answer 4

Una pequeña nota sobre la eficiencia de los métodos antes mencionados:

 library(microbenchmark)
microbenchmark(
which("Feb" == month.abb)[[1]],
which("Feb" %in% month.abb))
Unit: nanoseconds
min lq mean median uq max neval
891 979.0 1098.00 1031 1135.5 3693 100
1052 1175.5 1339.74 1235 1390.0 7399 100

Entonces, el mejor es

 which("Feb" == month.abb)[[1]]