Worked like a charm!  Thanks a lot!

Jen



On Fri, Jul 23, 2010 at 11:48 AM, Alain Guillet
<alain.guillet@uclouvain.be>wrote:

>  Hi,
>
> I am sure there is a better solution but a possibility is that you use
> sub("\\.",",",as.character(newdata))  instead of newdata in the text calls.
>
> HTH,
> Alain
>
>
>
>
> On 23-Jul-10 17:32, Jennifer Sabatier wrote:
>
>> Hi R-List,
>>
>> I have a question regarding R-language formats, I think.  I am producing a
>> series of graphs (using plot, barplot, barchart, and bwplot, using either
>> text or mtext to place values on the graphs) and tables for a Francophone
>> country.  In fact, I have already done so.  However, while they are
>> pleased
>> with the results they've requested I convert all of my decimal points into
>> the French format which uses commas rather than points.  I have no idea
>> how
>> to do this for the graphs, despite searching the help, other than to
>> convert
>> all of my statistics into strings and manually reset the decimal
>> separators,
>> which would take a long time.  Is there some quick and easy way?  It's
>> only
>> the graphs I need assistance with.  For tables I simply output to excel
>> and
>> it's easy to change them there.
>>
>> Here's an example (I'm sure it's crude but I'm still new at R.  To make
>> the
>> graph look right you have to expand the java window...which I'm sure you
>> don't need to do if you know how to do this in a more elegant manner):
>>
>>
>> sites<- c("Kayes", "Kita", "Koulikoro", "Fana", "Sikasso", "Koutiala",
>> "SgFam", "SgHop", "Bla", "Mopti", "Douentz", "Tombc",
>>
>> "Dire","Gao","Ansongo","Kidal","Tessalit","BkoCommI","BkoCommIII","BkoCommV")
>> size<-
>>
>> list(2.91,2.36,5.09,3.21,2.27,4.09,2.31,2.76,1.2,2.03,3.06,0.53,1.43,1.83,1,0.93,0,4.01,4.13,3.47)
>> site_size<- data.frame(cbind(sites, size))
>> newdata<- (sapply(subset(site_size, select=c("size")), as.numeric))
>> rownames(newdata)<- site_size$sites
>>
>> library(grid)
>>
>> plot(newdata, ylab =" ", xlab= " " , axes = FALSE)#, type="h", lwd=16)
>> points(newdata, cex = 10, col = topo.colors(20), bg=topo.colors(20),
>> pch=22)
>> lines(newdata, type="h", lwd=40, col=topo.colors(20))
>> axis(1, at=seq(1, 20, by=1), labels = FALSE)
>> text(seq(1, 20, by=1), par("usr")[3] - 0.2, labels = site2_labels, srt =
>> 45,
>> pos = 1, xpd = TRUE)
>> reg.txt<- as.character(c("        Kayes                      Koulikoro
>>         Sikasso                            Segou
>> Mopti
>>                  Tombouctou                  Gao                    Kidal
>>                    Bamako"))
>> mtext(paste(reg.txt), side=3, font=4, cex=1, adj=0)#, outer=T)
>> text(0, 5.35, "Region:", cex = 1, font=4, xpd=T)
>> text(0, -.5, "Sites:", cex=1.2, font=1, xpd=T)
>> abline(v=c(2.5, 4.5, 6.5, 9.5, 11.5, 13.5, 15.5, 17.5))
>> axis(2, at=3, labels = FALSE)
>> mtext(paste("VIH Prevalence (%)"), side=2, font=2, cex=1.2)
>> text(1,3, labels=newdata[1], col="white", cex=1.5);text(2,2.45,
>> labels=newdata[2], col="white", cex=1.5)
>> text(3,5.2, labels=newdata[3], col="white", cex=1.5);text(4,3.27,
>> labels=newdata[4], col="white", cex=1.5)
>> text(5,2.35, labels=newdata[5], col="white", cex=1.5);text(6,4.2,
>> labels=newdata[6], col="white", cex=1.5)
>> text(7,2.36, labels=newdata[7], col="black", cex=1.5);text(8,2.85,
>> labels=newdata[8], col="black", cex=1.5)
>> text(9,1.28, labels=newdata[9], col="black", cex=1.5);text(10,2.1,
>> labels=newdata[10], col="black", cex=1.5)
>> text(11,3.13, labels=newdata[11], col="black", cex=1.5);text(12,.6,
>> labels=newdata[12], col="black", cex=1.5)
>> text(13,1.48, labels=newdata[13], col="black", cex=1.5);text(14,1.9,
>> labels=newdata[14], col="black", cex=1.5)
>> text(15,1.05, labels=newdata[15], col="black", cex=1.5);text(16,1,
>> labels=newdata[16], col="black", cex=1.5)
>> text(17,.1, labels=newdata[17], col="black", cex=1.5);text(18,4.1,
>> labels=newdata[18], col="black", cex=1.5)
>> text(19,4.2, labels=newdata[19], col="black", cex=1.5);text(20,3.55,
>> labels=newdata[20], col="black", cex=1.5)
>>
>>
>>
>>
>>  Thanks,
>>
>> Jen
>>
>>        [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help@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.
>>
>>
> --
> Alain Guillet
> Statistician and Computer Scientist
>
> SMCS - IMMAQ - Université catholique de Louvain
> Bureau c.316
> Voie du Roman Pays, 20
> B-1348 Louvain-la-Neuve
> Belgium
>
> tel: +32 10 47 30 50
>
>

	[[alternative HTML version deleted]]

