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]]