Comment fusionner des tables dans la R?

Je pense que cela va avoir une réponse simple, mais je ne peux pas travailler! Voici un exemple d'utilisation de la iris dataset:

a <- table(iris[,2])
b <- table(iris[,3])

Comment puis-je ajouter ces deux tableaux? Par exemple, la variable 3 aurait une valeur de 27 (26+1) et que la variable de 3,3 une valeur de 8 (6+2) dans la table en sortie.

Toute aide appréciée.

OriginalL'auteur JPD | 2012-10-15

  1. 8

    Cela fonctionnera si vous souhaitez utiliser les variables qui sont présents dans les deux a et b:

    n <- intersect(names(a), names(b))
a[n] + b[n]

#  3 3.3 3.5 3.6 3.7 3.8 3.9   4 4.1 4.2 4.4 
# 27   8   8   5   4   7   5   6   4   5   5

    Si vous souhaitez utiliser toutes les variables:

    n <- intersect(names(a), names(b)) 

res <- c(a[!(names(a) %in% n)], b[!(names(b) %in% n)], a[n] + b[n])

res[order(names(res))] # sort the results
    +1 bien meilleur que le mien.
    Merci pour cette. Peut-il être modifié pour conserver les valeurs qui ne sont pas présents dans les deux ensembles de données et présente seulement dans le bien? J'ai besoin d'un total qui intègre tous les données, y compris la fusion de valeurs communes que votre code a montré.
    Voir la mise à jour de ma réponse.
    merci pour la mise à jour. À l'aide de la iris exemple, [-n] semble être invalide.
    Voir ma correction.

    OriginalL'auteur Sven Hohenstein

  2. 2
    temp<-merge(a,b,by='Var1')
temp$sum<-temp$Freq.x + temp$Freq.y

   Var1 Freq.x Freq.y sum
1     3     26      1  27
2   3.3      6      2   8
3   3.5      6      2   8
4   3.6      4      1   5
5   3.7      3      1   4
6   3.8      6      1   7
7   3.9      2      3   5
8     4      1      5   6
9   4.1      1      3   4
10  4.2      1      4   5
11  4.4      1      4   5
    +1 belle utilisation de merge()

    OriginalL'auteur nograpes

  3. 2

    En voici une autre:

    transform(merge(a,b, by="Var1"), sum=Freq.x + Freq.y)
   Var1 Freq.x Freq.y sum
1     3     26      1  27
2   3.3      6      2   8
3   3.5      6      2   8
4   3.6      4      1   5
5   3.7      3      1   4
6   3.8      6      1   7
7   3.9      2      3   5
8     4      1      5   6
9   4.1      1      3   4
10  4.2      1      4   5
11  4.4      1      4   5

    OriginalL'auteur johannes

  4. 1

    Ici est un peu torturé one-liner version de la merge() solution:

    do.call(function(Var1, Freq.x, Freq.y) data.frame(Var1=Var1, Freq=rowSums(cbind(Freq.x, Freq.y))), merge(a, b, by="Var1"))

    Voici l'un si vous voulez utiliser toutes les variables:

    do.call(function(Var1, Freq.x, Freq.y) data.frame(Var1=Var1, Freq=rowSums(cbind(Freq.x, Freq.y), na.rm=TRUE)), merge(a, b, by="Var1", all=TRUE))

    Contrairement à la transform() one-liner, il ne doit pas s'accumuler .x et .y de sorte qu'il peut être utilisé de manière itérative.

    OriginalL'auteur verbamour