Hi Rui and Arun,

 My apology, next time onwards I will post the data example as well. Things
are working and I appreciate your time.

  Warm Regards


On Sat, Mar 9, 2013 at 10:02 PM, Rui Barradas <ruipbarradas@sapo.pt> wrote:

> 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@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@sapo.pt>
>>>> To: Sudip Chatterjee <sudipanalyst@gmail.com>
>>>> Cc: r-help@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@r-project.org mailing list
>>>>> https://stat.ethz.ch/mailman/****listinfo/r-help<https://stat.ethz.ch/mailman/**listinfo/r-help>
>>>>> <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<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<https://stat.ethz.ch/mailman/**listinfo/r-help>
>>>> <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<http://www.R-project.org/posting-guide.html>
>>>> >
>>>>
>>>> and provide commented, minimal, self-contained, reproducible code.
>>>>
>>>>
>>>>
>>

	[[alternative HTML version deleted]]

