R help - Jan 2010 - Help formating data to display commas

I'm using the following code to create quartile intervals of my dataset and
it is working like it is suppose too. In my final output of the data I would
like currency amounts to be displayed with commas. I have not found an option
either through FormatC or sprintf that will display the data with commas, they
only seem to add decimals. Is there a format that will display commas without me
reverting to the labels statement.  This is an ongoing process where the values
are updated, so using the labels statement would be too much to manage.


Benchparaq<-levels(quantcut(benchmarkPara$Benchmark_Total,
q=seq(0,1,by=0.25), na.rm=TRUE))
>                   
#,labels=c("$267,000-<$436,000","$436,000-<$559,000","$559,000-<$836,000","$836,000-<$1,590,000"))
> lower <-as.numeric(sub("\\((.+),.*", "\\1",
Benchparaq))
Warning: NAs introduced by coercion
> upper <- as.numeric(sub("[^,]*,([^]]*)\\]", "\\1",
Benchparaq))
> lower<-ifelse(is.na(lower),0,as.numeric(lower))
> upper<-ifelse(is.na(upper),0,as.numeric(upper))
> lower
[1]      0 436000 559000 836000
> upper
[1]  436000  559000  836000 1590000
>
Benchparaq<-paste("$",lower,"-<","$",upper,sep="")
>   lower<-NULL
>   upper<-NULL
> Benchparaq
[1] "$0-<$436000"       "$436000-<$559000" 
"$559000-<$836000"  "$836000-<$1590000"


Chris Anderson
Data Analyst
Medical Affairs
wk: 925-677-4870
cell: 707-315-8486
Fax:925-677-4670





This electronic message transmission, including any attachments, contains
information which may be confidential, privileged and/or otherwise exempt
from disclosure under applicable law. The information is intended to be for the
use of the individual(s) or entity named above. If you are not the intended
recipient or the employee or agent responsible for delivering the message
to the intended recipient, you are hereby notified that any disclosure, copying,
distribution or use of the contents of this information is strictly prohibited. 
If
you have received this electronic transmission in error, please notify the
sender
immediately by telephone (800-676-6777) or by a "reply to sender only"
message and destroy all electronic and hard copies of the communication,
including attachments.  Thank you.

For more information on Paradigm Management Services, LLC, please visit
http://www.paradigmcorp.com

	[[alternative HTML version deleted]]

Try this:

gsub("\\s", "", format(upper, big.mark = ","))

On Thu, Jan 7, 2010 at 5:31 PM, Anderson, Chris
<chris.anderson at paradigmcorp.com> wrote:
> I'm using the following code to create quartile intervals of my dataset
and it is working like it is suppose too. In my final output of the data I would
like currency amounts to be displayed with commas. I have not found an option
either through FormatC or sprintf that will display the data with commas, they
only seem to add decimals. Is there a format that will display commas without me
reverting to the labels statement. ?This is an ongoing process where the values
are updated, so using the labels statement would be too much to manage.
>
>
> Benchparaq<-levels(quantcut(benchmarkPara$Benchmark_Total,
q=seq(0,1,by=0.25), na.rm=TRUE))
>> ? ? ? ? ? ? ? ? ?
?#,labels=c("$267,000-<$436,000","$436,000-<$559,000","$559,000-<$836,000","$836,000-<$1,590,000"))
>> lower <-as.numeric(sub("\\((.+),.*", "\\1",
Benchparaq))
> Warning: NAs introduced by coercion
>> upper <- as.numeric(sub("[^,]*,([^]]*)\\]",
"\\1", Benchparaq))
>> lower<-ifelse(is.na(lower),0,as.numeric(lower))
>> upper<-ifelse(is.na(upper),0,as.numeric(upper))
>> lower
> [1] ? ? ?0 436000 559000 836000
>> upper
> [1] ?436000 ?559000 ?836000 1590000
>>
Benchparaq<-paste("$",lower,"-<","$",upper,sep="")
>> ? lower<-NULL
>> ? upper<-NULL
>> Benchparaq
> [1] "$0-<$436000" ? ? ? "$436000-<$559000"
?"$559000-<$836000" ?"$836000-<$1590000"
>
>
> Chris Anderson
> Data Analyst
> Medical Affairs
> wk: 925-677-4870
> cell: 707-315-8486
> Fax:925-677-4670
>
>
>
>
>
> This electronic message transmission, including any attachments, contains
> information which may be confidential, privileged and/or otherwise exempt
> from disclosure under applicable law. The information is intended to be for
the
> use of the individual(s) or entity named above. If you are not the intended
> recipient or the employee or agent responsible for delivering the message
> to the intended recipient, you are hereby notified that any disclosure,
copying,
> distribution or use of the contents of this information is strictly
prohibited. ?If
> you have received this electronic transmission in error, please notify the
sender
> immediately by telephone (800-676-6777) or by a "reply to sender
only"
> message and destroy all electronic and hard copies of the communication,
> including attachments. ?Thank you.
>
> For more information on Paradigm Management Services, LLC, please visit
> http://www.paradigmcorp.com
>
> ? ? ? ?[[alternative HTML version deleted]]
>
> ______________________________________________
> 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.
>


-- 
Henrique Dallazuanna
Curitiba-Paran?-Brasil
25? 25' 40" S 49? 16' 22" O