Message-ID: <1348086219.85168.YahooMailNeo@web142603.mail.bf1.yahoo.com>
Date: 2012-09-19T20:23:39Z
From: arun
Subject: Merging two or more frequency tables
In-Reply-To: <1348081729799-4643663.post@n4.nabble.com>
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.