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 <mce...@lightminersystems.com>
To: r-help@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@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.
______________________________________________
R-help@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.
