Trouver des éléments qui ne se chevauchent pas entre deux vecteurs

Je suis en train d'essayer d'identifier les éléments qui ne sont pas inclus dans l'autre vecteur. Par exemple, dans deux vecteurs, j'ai

list.a <- c("James", "Mary", "Jack", "Sonia", "Michelle", "Vincent")

list.b <- c("James", "Sonia", "Vincent")

est-il un moyen de vérifier laquelle les gens ne se chevauchent pas? Dans l'exemple, je voudrais obtenir le vecteur résultat qui contient Marie, Jack, et Michelle.

Des suggestions aidera!

OriginalL'auteur song0089 | 2014-02-05

  1. 23

    Oui, il y a un moyen:

    setdiff(list.a, list.b)
# [1] "Mary"     "Jack"     "Michelle"
    Juste être conscient que toutes les fonctions de ce groupe (setdiff, intersection, union, etc) va ignorer les doublons. Si vous avez des listes avec des valeurs en double, vous aurez à jouer un peu partout. En fait, il y avait un question, bien répondu, juste pour ce problème il y a quelques jours. -- qui, bien sûr, maintenant, je ne trouve pas 🙁
    si vous regardez le code source pour setdiff vous verrez que c'est facile à modifier pour ne pas ignorer les doublons
    merci; je vais aller chercher ça.
    J'ai posté un "flexible" version de setdiff, juste pour info 🙂

    OriginalL'auteur Julius Vainora

  2. 2

    Une longue réponse sur la base des observations de Hadley et de moi-même: voici comment autoriser les doublons.

    Final Edit: je ne recommande à personne l'utiliser, car le résultat peut ne pas être ce que vous attendez. Si il y a une répétition de la valeur dans x qui n'est pas dans y, vous verrez que la valeur répété dans la sortie. Mais: si, par exemple, il y a quatre 9s dans x et un 9 dans y, tous les 9s sera supprimé. On pourrait s'attendre à conserver trois d'entre eux; qui prend messier code.

    mysetdiff<-function (x, y, multiple=FALSE) 
{
    x <- as.vector(x)
    y <- as.vector(y)
    if (length(x) || length(y)) {
        if (!multiple) {
             unique( x[match(x, y, 0L) == 0L])  
              }else  x[match(x, y, 0L) == 0L] 
        } else x
}

Rgames> x
[1]  8  9  6 10  9
Rgames> y
[1] 5 3 8 8 1
Rgames> setdiff(x,y)
[1]  9  6 10
Rgames> mysetdiff(x,y)
[1]  9  6 10
Rgames> mysetdiff(x,y,mult=T)
[1]  9  6 10  9
Rgames> mysetdiff(y,x,mult=T)
[1] 5 3 1
Rgames> setdiff(y,x)
[1] 5 3 1
    Je voudrais stocker temporairement à la suite de la if déclaration et appel unique sur que dans le cas !multiple. Il serait plus facile à lire.

    OriginalL'auteur Carl Witthoft

  3. 2

    Je pense qu'il devrait être mentionné que la accepté réponse est n'est que partiellement correcte.
    La commande setdiff(list.a, list.b) constate le non-cumul des éléments que si ces éléments sont contenus dans l'objet qui est utilisé comme premier argument!.

    Si vous n'êtes pas au courant de ce comportement et n'a setdiff(list.b, list.a) au lieu de cela, les résultats seraient character(0) dans ce cas, qui vous amènerait à conclure qu'il n'y a pas de non-chevauchement des éléments.

    Légèrement à l'aide d'un exemple pour illustration, une évidente quick fix est:

    list.a <- c("James", "Mary", "Jack", "Sonia", "Michelle", "Vincent")
list.b <- c("James", "Sonia", "Vincent", "Iris")

c(setdiff(list.b, list.a), setdiff(list.a, list.b))
# [1] "Iris"     "Mary"     "Jack"     "Michelle"

    OriginalL'auteur Manuel R

  4. 0

    Un joli one-liner qui s'applique à des doublons:

    anti_join(data_frame(c(1,1,2,2)), data_frame(c(1,1)))

    Renvoie le bloc de données {2,2}. Ceci, cependant, ne s'applique pas au cas de 1,2 en 1,1,2,2, parce qu'il le trouve deux fois

    OriginalL'auteur Noale