[R] Word Frequency for each row

[Rui Barradas]

Hello,

This is why the posting guide says that you sholud provide a data 
example. Try the following.


dat <- read.table(text = "
ID,     Data
  1,     I love oranges and apples
   2,    Oranges are good so we must eat them and also drik oranges
   3,    Apples are not that good like oranges so eat oranges
", sep = ",", header = TRUE, stringsAsFactors = FALSE)

dat

word <- "oranges"
where <- sapply(dat$Data, function(.x) gregexpr(tolower(word), tolower(.x)))
result <- sapply(where, length)  # count them
names(result) <- dat$ID
result


Hope this helps,

Rui Barradas

Em 09-03-2013 16:01, Sudip Chatterjee escreveu:
>   Hi All,
>
>   This is very helpful, but my data looks like this
>   ID     Data
>   1     I love oranges and apples
>    2    Oranges are good so we must eat them and also drik oranges
>    3    Apples are not that good like oranges so eat oranges
>
>    & I would like to count # of oranges in each row. How do I go about it ?
>
>    Warm Regards
>
>
> On Sat, Mar 9, 2013 at 4:20 AM, Rui Barradas <ruipbarradas at sapo.pt> wrote:
>
>> Hello,
>>
>> I had thought of something like that, but I'm not sure if the match must
>> be exact. If not, grep seems better. More complicated and slower but more
>> flexible.
>>
>> Rui Barradas
>>
>> Em 08-03-2013 21:32, arun escreveu:
>>
>>
>>>
>>> Hi,
>>> You can also try:
>>>      res2<-rowSums(x==word)
>>>
>>> res1<-sapply(where,length)
>>> res1[]<- sapply(res1,as.numeric)
>>>    identical(res1,res2)
>>> #[1] TRUE
>>> A.K.
>>>
>>>
>>>
>>> ----- Original Message -----
>>> From: Rui Barradas <ruipbarradas at sapo.pt>
>>> To: Sudip Chatterjee <sudipanalyst at gmail.com>
>>> Cc: r-help at r-project.org
>>> Sent: Friday, March 8, 2013 4:26 PM
>>> Subject: Re: [R] Word Frequency for each row
>>>
>>> Hello,
>>>
>>> I'm not sure I understand, but see if the following is an example of
>>> counting occurences of a word in each row.
>>>
>>>
>>> set.seed(1855)
>>> x <- matrix(sample(LETTERS[1:5], 400, replace = TRUE), ncol = 4)
>>> word <- "A"
>>> where <- apply(x, 1, function(.x) grep(word, .x))
>>> sapply(where, length)  # count them
>>>
>>>
>>> Hope this helps,
>>>
>>> Rui Barradas
>>>
>>> Em 08-03-2013 16:04, Sudip Chatterjee escreveu:
>>>
>>>> Hi All,
>>>>
>>>>      I am wondering if there is any examples where you can count your
>>>> interested "word" in each row. For an example if  you have data with
>>>> *'ID*'
>>>> and '*write-up*' for 100 rows, how would I calculate the word frequency
>>>> for
>>>> each row ?
>>>>
>>>>       Thank you for all your time.
>>>>
>>>>       [[alternative HTML version deleted]]
>>>>
>>>> ______________________________**________________
>>>> R-help at r-project.org mailing list
>>>> https://stat.ethz.ch/mailman/**listinfo/r-help<https://stat.ethz.ch/mailman/listinfo/r-help>
>>>> PLEASE do read the posting guide http://www.R-project.org/**
>>>> posting-guide.html <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<https://stat.ethz.ch/mailman/listinfo/r-help>
>>> PLEASE do read the posting guide http://www.R-project.org/**
>>> posting-guide.html <http://www.R-project.org/posting-guide.html>
>>> and provide commented, minimal, self-contained, reproducible code.
>>>
>>>
>