[R] drop zero slots from table?

[Sam Steingold]

> * William Dunlap <jqhaync at gvopb.pbz> [2012-09-19 18:20:50 +0000]:
>
> Why don't you try that and tell us if it works?

Because in my wildest dreams it did not occur to me that this could be
valid code in any programming language.
It appears to be valid R, which seems to be out-perling Perl at every turn.
However, it does not do what I want: it does not result in the right
name for the returned table.

Thanks a lot for your insight!

>
>> -----Original Message-----
>> From: Sam Steingold [mailto:sam.steingold at gmail.com] On Behalf Of Sam Steingold
>> Sent: Wednesday, September 19, 2012 10:48 AM
>> To: r-help at r-project.org; William Dunlap
>> Subject: Re: drop zero slots from table?
>> 
>> cool, thanks!
>> Still, I wonder if there is a way to pass all args as is from a function
>> downward (like in a lisp macro); something like
>> 
>> sorted.table <- function (...) { tab <- table(...); ... }
>> 
>> > * William Dunlap <jqhaync at gvopb.pbz> [2012-09-19 16:26:08 +0000]:
>> >
>> > Here is one way:
>> >
>> >> sorted.table <- function(x, name = if (is.list(x))names(x) else deparse(substitute(x))[1]) {
>> > +    tab <- table(x)
>> > +    names(dimnames(tab)) <- name
>> > +    tab <- tab[tab > 0]
>> > +    sort(tab, decreasing=TRUE)
>> > + }
>> >> digits <- factor(trunc(100*log2(1:20)%%.1), levels=0:9)
>> >> sorted.table(digits)
>> > digits
>> > 0 8 2 6 4 5
>> > 9 4 3 2 1 1
>> >> sorted.table(data.frame(DigitsColumn=digits))
>> > DigitsColumn
>> > 0 8 2 6 4 5
>> > 9 4 3 2 1 1
>> >> sorted.table(digits, name="My Digits")
>> > My Digits
>> > 0 8 2 6 4 5
>> > 9 4 3 2 1 1
>> >
>> > Bill Dunlap
>> > Spotfire, TIBCO Software
>> > wdunlap tibco.com
>> >
>> >
>> >> -----Original Message-----
>> >> From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-project.org] On
>> Behalf
>> >> Of Sam Steingold
>> >> Sent: Wednesday, September 19, 2012 9:13 AM
>> >> To: r-help at r-project.org
>> >> Subject: Re: [R] drop zero slots from table?
>> >>
>> >> Function
>> >> --8<---------------cut here---------------start------------->8---
>> >> sorted.table <- function (vec) {
>> >>   tab <- table(vec)
>> >>   tab <- tab[tab > 0]
>> >>   sort(tab, decreasing=TRUE)
>> >> }
>> >> --8<---------------cut here---------------end--------------->8---
>> >> does what I want but it prints "vec" instead of the name of its
>> >> argument:
>> >> --8<---------------cut here---------------start------------->8---
>> >> > sorted.table(foo$bar)
>> >> vec
>> >>   A  B
>> >>   10 3
>> >> --8<---------------cut here---------------end--------------->8---
>> >> how do I pass all arguments of sorted.table() on to table() as is?
>> >> thanks!
>> >>
>> >> > * Sam Steingold <fqf at tah.bet> [2012-09-19 11:51:08 -0400]:
>> >> >
>> >> > I find myself doing
>> >> > tab <- table(...)
>> >> > tab <- tab[tab > 0]
>> >> > tab <- sort(tab,decreasing=TRUE)
>> >> > all the time.
>> >> > I am wondering if the "drop 0" (and maybe even sort?) can be effected by
>> >> > some magic argument to table() which I fail to discover in the docs?
>> >> > Obviously, I could use droplevels() to avoid 0 counts in the first
>> >> > place, but I do not want to drop the levels in the data.
>> >>
>> >> --
>> >> Sam Steingold (http://sds.podval.org/) on Ubuntu 12.04 (precise) X 11.0.11103000
>> >> http://www.childpsy.net/ http://memri.org http://thereligionofpeace.com
>> >> http://www.PetitionOnline.com/tap12009/ http://dhimmi.com
>> >> Beauty is only a light switch away.
>> >>
>> >> ______________________________________________
>> >> 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.
>> >
>> 
>> --
>> Sam Steingold (http://sds.podval.org/) on Ubuntu 12.04 (precise) X 11.0.11103000
>> http://www.childpsy.net/ http://thereligionofpeace.com http://mideasttruth.com
>> http://palestinefacts.org http://openvotingconsortium.org http://truepeace.org
>> If you will not bring your husband coffee in bed, his day may start with a beer.

-- 
Sam Steingold (http://sds.podval.org/) on Ubuntu 12.04 (precise) X 11.0.11103000
http://www.childpsy.net/ http://truepeace.org http://iris.org.il
http://thereligionofpeace.com http://palestinefacts.org
Feynman: 'Philosophy of science is as useful to scientists as ornithology is to birds'