# Re: [R] Simple 'frequency' function?

From: Dan Bolser <dmb_at_mrc-dunn.cam.ac.uk>
Date: Sat 10 Jul 2004 - 01:37:35 EST

On Fri, 9 Jul 2004, Uwe Ligges wrote:

>Dan Bolser wrote:
>
>> Hi, I have designed the following function to extract count frequencies
>> from an array of integers. For example...
>>
>> # Tipical array
>> x <- cbind(1,1,1,1,1,2,2,2,2,3,3,3,3,4,5,6,7,22)
>>
>> # Define the frequency function
>> frequency <-
>> function(x){
>> max <- max(x)
>> j <- c()
>> for(i in 1:max){
>> j[i] <- length(x[x==i])
>> }
>> return(j)
>> }
>>
>> fre <- frequency(x)
>> plot(fre)
>>
>> How can I ...
>>
>> 1) Make this a general function so my array could be of the form
>>
>> # eats!
>> x <- cbind( "egg","egg","egg","egg","ham","ham","ham","ham","chicken" )
>>
>> fre <- frequency(x)
>> plot(fre)
>>
>> 2) Make frequency return an object which I can call plot on (allowing the
>> prob=TRUE option).
>
>
>See ?table:
>
> table(x)
> plot(table(x))
> plot(table(x) / sum(table(x)))
>

Minter!

Thanks all for replies!

Dan.

R-help@stat.math.ethz.ch mailing list