Message-ID: <1348097222.49934.YahooMailNeo@web142605.mail.bf1.yahoo.com>
Date: 2012-09-19T23:27:02Z
From: arun
Subject: Merging two or more frequency tables
In-Reply-To: <505A44C4.8050300@sapo.pt>
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 <ruipbarradas at sapo.pt>
To: mcelis <mcelis at lightminersystems.com>
Cc: r-help at 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 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.
______________________________________________
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.