Trouver quel élément d'un vecteur est comprise entre deux valeurs dans R

J'ai deux vecteurs x et y. Je voudrais trouver des éléments de x sont entre les deux éléments de vecteur y. Comment puis-je le faire dans la R?

x = c( .2, .4, 2.1, 5.3, 6.7, 10.5)
y = c( 1, 7)

J'ai écrit le code suivant, mais il ne me donne pas le bon résultat.

> x = x[ x >= y[1] && x <= y[2]]
> x
numeric(0)

Résultat devrait ressembler à ceci:

res = c(2.1, 5.3, 6.7)
Les futurs lecteurs peuvent également être intéressé par findInterval, ce qui n'est pas tout à fait ce qui est nécessaire ici, mais il est un autre outil pour trouver deux valeurs d'un nombre est compris entre.
Voir aussi cette question connexe et plus d'infos sur & et && dans question.

OriginalL'auteur rose | 2013-12-23

  1. 5

    Vous êtes à la recherche pour le &, pas &&:

    x = c( .2, .4, 2.1, 5.3, 6.7, 10.5)
y = c( 1, 7)
x = x[ x >= y[1] & x <= y[2]]
x
# [1] 2.1 5.3 6.7

    Édité à expliquer. Voici le texte de ?'&' .

    & and && indicate logical AND and | and || indicate logical OR. 
The shorter form performs elementwise comparisons in much the same way as arithmetic operators. 
The longer form evaluates left to right examining only the first element of each vector. 
Evaluation proceeds only until the result is determined.

    Ainsi, lorsque vous avez utilisé && , il est retourné FALSE pour le premier élément de votre x et de la fin.

    OriginalL'auteur josliber

  2. 4

    Il y a deux fonctions de confort pour between inclus dans le dplyr et data.table paquets

    entre {dplyr}

    C'est un raccourci pour x >= gauche & x <= à droite, mis en œuvre de manière efficace en C++ pour les valeurs locales, et traduite en SQL approprié pour des tables distantes.

    entre {données.table}

    entre est équivalent à x >= bas & x <= supérieure lorsque incbounds=TRUE, ou x > bas & y < supérieure lorsque la valeur est FALSE

    Pour retourner les valeurs souhaitées

    x[between(x, min(y), max(y))]

    Une autre option à l'aide de findInterval

    x[findInterval(x,y)==1L]

    Il semble y avoir une légère (microsecondes) l'avantage de vitesse pour findInterval en utilisant des auteurs vecteur d'origine

    Unit: microseconds

               expr    min     lq     mean  median      uq     max neval
dplyr::between      14.078 14.839 20.37472 18.6435 20.5455  60.876   100
data.table::between 58.593 61.637 73.26434 68.2950 78.3780 160.560   100
findInterval         3.805  4.566  6.52944  5.7070  6.6585  35.385   100

    mis à jour avec de grandes vecteur

    x <- runif(1e8, 0, 10)
y <- c(1, 7)

    Résultats montrent léger avantage pour data.table avec un grand vecteur, mais en réalité ils sont suffisamment proches pour que je l'avais utilisent quel que soit le forfait que vous avez chargé

    Unit: seconds

              expr         min       lq     mean   median       uq      max neval
dplyr::between        1.879269 1.926350 1.969953 1.947727 1.995571 2.509277   100
data.table::between   1.064609 1.118584 1.166563 1.146663 1.202884 1.800333   100
findInterval          2.207620 2.273050 2.337737 2.334711 2.393277 2.763117   100
x>=min(y) & x<=max(y) 2.350481 2.429235 2.496715 2.486349 2.542527 2.921387   100
    Avez-vous de référence sur un grand x le vecteur?
    l'indice de référence a été mis à jour avec un 1e8 vecteur de longueur. Les résultats pour un grand vecteur faveur data.table mais sera susceptible d'être cohérent avec ce que le paquet que vous utilisez déjà avec vos données.

    OriginalL'auteur manotheshark

  3. 0

    Si y a plus de deux éléments, il pourrait être utile: 

    x[x>=range(y)[1] & x<=range(y)[2]]

    OriginalL'auteur G. Cocca