No problem. Sorry I ignored your font question, I have no personal experience, but this may help: https://stat.ethz.ch/pipermail/r-help/2009-April/196745.html
On Wed, Jun 3, 2009 at 10:17, Girish A.R. <garam...@gmail.com> wrote: > Thanks, Coltrey! Option 1 is what I was looking for. > > -Girish > > On Jun 3, 8:05 pm, Coltrey Mather <r-h...@cowsgomoo.org> wrote: >> barchart(mdat, >> groups=FALSE, >> layout=c(2,5), >> aspect=0.7, >> reference=FALSE, >> as.table=TRUE, >> main=list("Maintitle",cex=1), >> panel=function(x, y, ...) { >> colours <- character() >> colours[x < 0] <- 'red' >> colours[x > 0] <- 'green' >> panel.barchart(x, y, col=colours, ...) >> }, >> xlab="x-axis labels" >> ) >> >> or: >> >> barchart(mdat, >> groups=FALSE, >> col=c(mdat < 0), >> layout=c(2,5), >> aspect=0.7, >> reference=FALSE, >> as.table=TRUE, >> main=list("Maintitle",cex=1), >> xlab="x-axis labels" >> ) >> >> >> >> On Wed, Jun 3, 2009 at 09:42, David Winsemius <dwinsem...@comcast.net> wrote: >> >> > On Jun 3, 2009, at 9:56 AM, Girish A.R. wrote: >> >> >> Hi, >> >> >> I have been recently experimenting with the lattice package, which I >> >> must admit is just great! However, I'm sort of stuck in modifying >> >> certain parameters; Would appreciate some pointers on a couple of >> >> things: >> >> >> 1) Is it possible to change the font of the labels (say to computer >> >> modern) -- either in the Windows output or thru' Sweave (generating >> >> EPS/PDF)? >> >> 2) As you will notice, there are negative values in the data. Is it >> >> possible to have a different color for the bars depicting negative >> >> values? >> >> >> Reproducible code pasted below: >> >> >> ------------------------------------------------------------------------------------------ >> >> mdat <- matrix(c >> >> (-2.65,-3.7,-0.8,-1.4,-2.39,-1.12,-4.78,-4.9,-0.76,-1.56, >> >> 1.77,1.41,1.92,1.78,0.05,0.96,0.29,1.4,0.53,1.49, >> >> 1.4,0.35,1.65,2.14,1.88,2.75,1.86,0.32,2.96,2.28), nrow = 3, ncol=10, >> >> byrow=TRUE, dimnames = list(c("A", "B","C"),c >> >> ("S-1","S-2","S-3","S-4","S-5","S-6","S-7","S-8","S-9","S-10"))) >> >> >> barchart(mdat, groups=FALSE,layout=c >> >> (2,5),aspect=0.7,reference=FALSE,as.table=TRUE,main=list("Main >> >> title",cex=1),xlab="x-axis labels") >> >> > In you particular instance, I can accomplish the task but I do not know how >> > to do it in a more general fashion, because I do not know how to access the >> > values for the labels internally needed so that an ifelse() test can be >> > constructed. See it this is helpful at any rate: >> >> > barchart(mdat, groups=FALSE,layout=c(2,5), aspect=0.7, reference=FALSE, >> > as.table=TRUE, main=list("Main >> > title",cex=1),xlab="x-axis >> > labels",scales=list(x=list(col=c("red","red","black","black"))) ) >> >> > Deepayan will probably be along shortly with the complete answer. >> >> > Regards; >> > David >> >> > David Winsemius, MD >> > Heritage Laboratories >> > West Hartford, CT >> >> > ______________________________________________ >> > r-h...@r-project.org mailing list >> >https://stat.ethz.ch/mailman/listinfo/r-help >> > PLEASE do read the posting guidehttp://www.R-project.org/posting-guide.html >> > and provide commented, minimal, self-contained, reproducible code. >> >> ______________________________________________ >> r-h...@r-project.org mailing listhttps://stat.ethz.ch/mailman/listinfo/r-help >> PLEASE do read the posting guidehttp://www.R-project.org/posting-guide.html >> and provide commented, minimal, self-contained, reproducible code. > > ______________________________________________ > 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. > ______________________________________________ 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.