Vérifier si deux vecteurs contiennent les mêmes (non ordonnée) des éléments dans les R

J'aimerais vérifier si deux vecteurs contiennent les mêmes éléments, même s'ils ne sont pas commandé le même. Par exemple, la fonction (appelons SameElements) doit satisfaire à ces critères:

SameElements(c(1, 2, 3), c(1, 2, 3))  # TRUE
SameElements(c(1, 2, 3), c(3, 2, 1))  # TRUE
SameElements(c(1, 2, 1), c(1, 2))  # FALSE
SameElements(c(1, 1, 2, 3), c(3, 2, 1))  # FALSE

Edit 1: Spécifié que la fonction doit retourner F lorsque les vecteurs contiennent les mêmes éléments, mais avec des fréquences différentes.

Edit 2: Nettoyé question d'omettre première réponse, comme c'est maintenant dans ma réponse réelle.

  • Que diriez -all(a %in% b). Il répond pour l'essentiel à la question Sont tous les éléments de a contenues dans le vecteur b? Si les valeurs sont uniques, alors vous pourriez aussi utiliser quelque chose comme anyNA(match(a,b))
  • Ah bon appel, désolé n'était pas clair. Je suis à la recherche de F dans ce scénario (question édité pour plus de clarté).
InformationsquelleAutor Max Ghenis | 2015-01-12
  1. 35

    Je pense que vous pouvez utiliser setequal(a,b)

    Mise à jour mise à jour setequal vérifie si deux vecteurs sont composés des mêmes éléments, mais il ne permet pas de vérifier si ces éléments ont les mêmes événements dans chacun de ces vecteurs.

    • setequal est nouveau pour moi, et l'air soigné. +1
    • Il est fondamentalement juste %in% 🙂
    • Ya figuré. Il doit être en train de faire quelque chose de plus, car il est plus lent. Mais en termes d'être une "alternative plus propre", il gagne. dur pour obtenir un produit de nettoyage. 🙂
    • et les deux sont fondamentalement match )
    • Bien setequal est plus comme all( sapply(a, "%in%", table=b) ) & all(sapply(b, "%in%", table=a) )
    • Merci, Marat, malheureusement, je suis à la recherche de vecteurs avec les mêmes fréquences. Question édité pour plus de clarté.
    • pas exactement: > setequal retourne all(c(match(x, y, 0L) > 0L, match(y, x, 0L) > 0L)). En outre, %in% est également fondée sur le match: > %in% retourne match(x, table, nomatch = 0L) > 0L.
    • Même vecteur des longueurs n'est pas suffisant pour satisfaire les OP à ses exigences. Envisager setequal(c(1, 2, 1), c(1, 2, 2)) # [1] TRUE

    InformationsquelleAutor Marat Talipov
  2. 11

    En lieu et place d'une alternative plus propre, voici la solution:

    SameElements <- function(a, b) return(identical(sort(a), sort(b)))
SameElements(c(1, 2, 3), c(1, 3, 2))  # TRUE
SameElements(c(1, 2, 3), c(1, 1, 3, 2))  # FALSE

    Edit: identical au lieu de all.equal(...) == T par nrussell de la suggestion.

    • Type de fractionnement de poils, mais F <- function(a,b) identical(sort(a),sort(b)) vous permettront d'économiser 3 frappes (le ==T) à partir de votre SameElements la fonction ci - dessus soigné question si +1.
    • Merci @nrussell, mis à jour
    InformationsquelleAutor Max Ghenis
  3. 4

    Vous pouvez être intéressé par la "comparer" paquet. Cette réponse démontre la compare() fonction, mais pour votre cas, vous pourriez faire tout aussi bien avec compareIgnoreOrder() (ce qui correspond presque exactement à votre question du titre).

    Il y a plusieurs arguments qui peuvent être ajoutés comme les transformations qui doivent être autorisés en tentant de comparer les éléments. Dans les exemples ci-dessous (pour économiser un peu de temps), j'ai demandé à la fonction de permettre à toutes les transformations (allowAll = TRUE) à l'exception de la modification de la longueur du vecteur (shorten = FALSE).

    library(compare)
compare(A1, A2, allowAll = TRUE, shorten = FALSE)
# TRUE
compare(A1, A3, allowAll = TRUE, shorten = FALSE)
# TRUE
#   sorted
compare(A1, A4, allowAll = TRUE, shorten = FALSE)
# FALSE
#   sorted
compare(B1, B2, allowAll = TRUE, shorten = FALSE)
# FALSE
#   sorted
compare(B1, A4, allowAll = TRUE, shorten = FALSE)
# FALSE
#   sorted
compare(A3f, A1, allowAll = TRUE, shorten = FALSE)
# TRUE
#   coerced from <numeric> to <factor>
#   sorted

    Des données de l'échantillon:

    A1 <- c(1, 2, 3); A2 <- c(1, 2, 3)
A3 <- c(3, 2, 1); A4 <- c(1, 1, 2, 3)
B1 <- c(1, 2, 1); B2 <- c(1, 2)
A3f <- factor(A3)
    InformationsquelleAutor A5C1D2H2I1M1N2O1R2T1
  4. 0

    Voici ma solution:

    SameElements <- function (a,b){
  l <- Map(table,list(a, b)) # Compute frequencies - returns ordered table
  Reduce(identical,l) # Check if frequencies are the same for all input vectors
}

SameElements(c(1, 2, 3), c(1, 2, 3))  # TRUE
SameElements(c(1, 2, 3), c(3, 2, 1))  # TRUE
SameElements(c(1, 2, 1), c(1, 2))  # FALSE
SameElements(c(1, 1, 2, 3), c(3, 2, 1))  # FALSE

    Comme vous pouvez le voir, il travaille pour un nombre quelconque de vecteurs en entrée aussi longtemps que vous les mettez tous dans une liste.

    Un liner:

    Reduce(identical,Map(table,listOfVectors))
    InformationsquelleAutor jpmarindiaz
  5. 0

    Fondamentalement, votre problème peut être décrit dans les étapes suivantes :

    if not same unique values: return FALSE
else if same Frequencies: return TRUE
    else return True

    Dans le bon R code :

    SameElements = function(v1, v2)
{
  tab1 = table(v1) ; tab2 = table(v2)
  if( !all(names(tab1) == names(tab2)) ) return(FALSE) # Same unique values test
  return(all(tab1==tab2)) # Same frequencies test
}

    Quelques exemples :

    v1 = c(1, 2, 3)
v2 = c(3, 2, 1)
SameElements(v1, v2) # TRUE as both uniqueness and frequencies test are verified

v1 = c(1,1, 2,3)
v2  =c(3,2,1)
S

    ameElements(v1, v2) # FALSE comme les fréquences de test est violé

    PS : i) Vous pouvez remplacer !all() par any()

    ~~~ii) D'accélérer le code que vous pouvez rapidement revenir FALSE lorsque les deux vecteurs ne sont pas

    ~~~ont la même longueur, évitant ainsi les fréquences de calcul.

    InformationsquelleAutor Neroksi