[R] Lattice(barchart) related query

[Coltrey Mather]

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 <dwinsemius at 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-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.
>