HI, Inspired from Rui's function: Slightly modified: fun1<-function(x,...){ z<-paste(unlist(list(x,...)),collapse=" ") tsum<-table(strsplit(tolower(z),"\\W")) tsum} fun1(x,y) # age belief darkness epoch foolishness incredulity # 2 1 1 2 1 1 # it light of season the was # 6 1 6 2 6 6 # wisdom # 1 A.K.
----- Original Message ----- From: Rui Barradas <ruipbarra...@sapo.pt> To: mcelis <mce...@lightminersystems.com> Cc: r-help@r-project.org Sent: Wednesday, September 19, 2012 6:18 PM Subject: Re: [R] Merging two or more frequency tables Hello, Try the following. fun <- function(x, ...){ z <- Reduce(paste, list(x, ...)) tsum <- table(strsplit(tolower(z), "\\W")) tsum } x <- "It was the age of wisdom it was the age of foolishness it was the epoch of belief" y <- "it was the epoch of incredulity it was the season of Light it was the season of Darkness" fun(x, y) z <- "It was the era of R" fun(x, y, z) Hope this helps, Rui Barradas Em 19-09-2012 20:08, mcelis escreveu: > 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. ______________________________________________ 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.