Thanks David, it worked.
On Wed, Dec 2, 2009 at 7:34 PM, David Winsemius <dwinsem...@comcast.net>wrote:
>
> On Dec 2, 2009, at 6:27 PM, Peng Cai wrote:
>
> Hi R Users,
>>
>> I'm using following data/code (data is also attached) to produce a stacked
>> barplot.
>>
>> *I need help with changing legend boxes, currently I'm using
>> "rectangles=TRUE". Is it possible to get small squares instead -- may be
>> with a small gap between colored squares.* Currently there is no gap
>> between
>> the colored rectangles.
>>
>> # Sample Data:
>> Names Col1 Col2 Col3
>> Row1 -20 40 -10
>> Row2 30 -20 40
>> Row3 30 10 -20
>> Row4 20 20 -10
>>
>>
>> # R Code:
>> dta<-read.table("data.txt", header=TRUE, row.names="Names")
>> barchart(data.matrix(dta),
>> horizontal=FALSE,
>> stack=TRUE,
>> par.settings = simpleTheme(col = 3:5),
>> auto.key=list(space="right", rectangles=TRUE, points = FALSE),
>> border=NA,
>> scales = list(relation="free", y = list(at = yScale)),
>> panel=function(x,y,...)
>> {
>> panel.abline(h=c(yScale), col.line="gray")
>> panel.barchart(x,y,...)
>> }
>> )
>>
>
> I think you need to go to a key argument:
> library(lattice)
> yScale <- seq(-200, 200, 10)
>
> barchart(data.matrix(dta),
> horizontal=FALSE,
> stack=TRUE,
> par.settings = simpleTheme(col = 3:5),
> key=list(space="right", text=list(colnames(dta)),
> rectangles=list(size=2, border="white", col=3:5) ),
>
> border=NA,
> scales = list(relation="free", y = list(at = yScale)),
> panel=function(x,y,...)
> {
> panel.abline(h=c(yScale), col.line="gray")
> panel.barchart(x,y,...)
> }
> )
>
> --
> David.
>
>>
>> Any help would be appreciated,
>>
>> Thanks,
>> Peng
>> <data.txt>______________________________________________
>> 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.
>>
>
> David Winsemius, MD
> Heritage Laboratories
> West Hartford, CT
>
>
[[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.
