Come unire le tabelle in R?

Question

Penso che questo avrà una risposta semplice, ma non riesco a risolverlo! Ecco un esempio utilizzando il set di dati iris:

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

Come posso aggiungere queste due tabelle insieme? Ad esempio, la variabile 3 avrebbe un valore di 27 (26 + 1) e variabile 3.3 un valore di 8 (6 + 2) nella nuova tabella di output.

Qualsiasi aiuto molto apprezzato.

Answer 1

Ciò funzionerà se si desidera utilizzare le variabili che sono presenti in entrambi a e 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 

---

Se si desidera utilizzare tutte le variabili:

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 

Answer 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 

Answer 3

Eccone un altro:

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 

Answer 4

Ecco una versione one-liner un po 'tormentata della soluzione merge():

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

Ecco quello che se si desidera utilizzare tutte le variabili:

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)) 

A differenza del transform() one-liner, non accumula .x e .y in modo che possa essere usato iterativamente.