[R] Merging two or more frequency tables

[arun]

HI,
Try this:

dt0<-data.frame(t0)
 dt1<-data.frame(t1)
res1<-merge(dt0,dt1,by="Var1")
res2<-aggregate(Freq.x+Freq.y~Var1,data=res1,sum)
colnames(res2)[2]<-"Freq"
res3<-rbind( dt0[!dt0$Var1%in%res2$Var1,],dt1[!dt1$Var1%in%res2$Var1,] ,res2)
row.names(res3)<-1:nrow(res3)
 xtabs(Freq~Var1,data=res3)
#Var1
  #      age      belief       epoch foolishness          it          of 
    #      2           1           2           1           6           6 
      #  the         was      wisdom    darkness incredulity       light 
        #  6           6           1           1           1           1 
    # season 
      #    2 




----- Original Message -----
From: mcelis <mcelis at lightminersystems.com>
To: r-help at r-project.org
Cc: 
Sent: Wednesday, September 19, 2012 3:08 PM
Subject: [R] Merging two or more frequency tables

I am new to R and am looking to merge two or more frequency tables into one.
I have searched around but have been unable to find exactly what I need.

I have two frequency tables obtained from two sample texts

t0<-table(strsplit(tolower("It was the age of wisdom it was the age of
foolishness it was the epoch of belief"), "\\W"))
t1<-table(strsplit(tolower("it was the epoch of incredulity it was the
season of Light it was the season of Darkness"), "\\W"))

so I get:
> t0
        age      belief       epoch   foolishness      it          of        
the         was   wisdom
            2               1                  1                      1      
3           3             3               3                 1 
> t1
   darkness       epoch   incredulity         it       light          of    
season         the   was
                   1                 1                     1          3          
1             3                 2              3        3 

I need to merge these two tables into one so that the frequencies for each
word are added, e.g. the word "it" 
would have 6. So resulting table would be

       age      belief    darkness       epoch    foolishness    
incredulity          it       light 
           2               1                    1                2                        
1                      1           6             1 
         of      season            the            was           wisdom 
           6                2                 6                  6                      
1 

Any suggestions?






--
View this message in context: http://r.789695.n4.nabble.com/Merging-two-or-more-frequency-tables-tp4643663.html
Sent from the R help mailing list archive at Nabble.com.

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.