Jak scalić tabele w R?

Question

Myślę, że będzie to prosta odpowiedź, ale nie mogę tego rozwiązać! Oto przykład przy użyciu zestawu danych: iris

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

Jak mogę dodać te dwie tabele razem? Na przykład zmienna 3 miałaby wartość 27 (26 + 1) i zmienną 3.3 a wartość 8 (6 + 2) w nowej tabeli wyników.

Każda pomoc bardzo ceniona.

Answer 1

To będzie działać, jeśli chcesz używać zmiennych, które są obecne w obu a i 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 

---

Jeśli chcesz korzystać ze wszystkich zmiennych:

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

Oto kolejna:

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

Oto nieco torturowany wersja jedno-liner roztworu 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")) 

Oto jeden, jeśli chcesz korzystać ze wszystkich zmiennych:

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

przeciwieństwie do transform() jednej liniowej, nie kumuluje się .x i .y, więc można go używać iteracyjnie.