Thanks Uwe, I got your suggestions part too.
2009/12/6 Uwe Ligges <lig...@statistik.tu-dortmund.de>
>
>
> Peng Cai wrote:
>
>> Hi,
>>
>> I'm plotting grouped barplot using following code and data. I need help
>> with
>> re-ordering the labels.
>>
>> 1. On x-axis the factor "AGE" is grouped in order "0--4", "15--18",
>> "5--14";
>> whereas I would like to have it in "0--4", "5--14", "15--18".
>>
>> 2. If I need to re-order "RACE" variable. How can I do it assuming I need
>> to
>> change it on both the x-axis and legend. Currenlty the order is
>> "Black","Other","White"; whereas I would like "White", "Black", "Other".
>>
>> Can anyone help please. I'm using following code, which is working fine
>> except above issues.
>>
>> Code:
>>
>> library(lattice)
>>
>
> To answer your question:
>
> dta$age <- factor(dta$age, levels = c("0--4", "5--14", "15--18"),
> ordered = TRUE)
> dta$race <- factor(dta$race, levels = c("White", "Black", "Other"))
>
> library(lattice)
>
> barchart(sum ~ age | gender, data = dta, groups = race,
> stack = FALSE,
> ylab = "Sum of admissions over 10 years (1996-2005)",
> xlab = "Age",
> par.settings = simpleTheme(col = c("green1", "yellow1", "orange")),
> key = list(space="right", cex=1, text=list(levels(dta$race)),
>
> rectangles=list(size=1.7, border="white",
> col = c("green1", "yellow1", "orange"))),
> strip = strip.custom(bg="greenyellow")
> )
>
>
>
>
> ################### assuming data is read in object name "dta".
>> attach(dta)
>>
>
>
> Other comments:
>
> 1. You do not need attach at all here - and I recommend not to use it
> unless you really know what you are doing and you really need it.
> 2. you might want to choose more appropriate colours.
>
> Best,
> Uwe Ligges
>
>
>
> barchart(sum ~ age | gender, data = dta,
>> groups = race,
>> stack = FALSE,
>> ylab="Sum of admissions over 10 years (1996-2005)",
>> xlab="Age",
>> par.settings=simpleTheme(col = c("green1", "yellow1", "orange")),
>> key=list(space="right", cex=1,
>> text=list(c("Black","Other","White")),
>> rectangles=list(size=1.7, border="white", col = c("green1", "yellow1",
>> "orange"))),
>> strip = strip.custom(bg="greenyellow")
>> )
>> detach(dta)
>>
>> Data:
>> age gender race sum
>> 0--4 Female Black 145
>> 0--4 Female Other 53
>> 0--4 Female White 47
>> 0--4 Male Black 286
>> 0--4 Male Other 130
>> 0--4 Male White 94
>> 15--18 Female Black 30
>> 15--18 Female Other 3
>> 15--18 Female White 9
>> 15--18 Male Black 21
>> 15--18 Male Other 2
>> 15--18 Male White 3
>> 5--14 Female Black 138
>> 5--14 Female Other 31
>> 5--14 Female White 23
>> 5--14 Male Black 199
>> 5--14 Male Other 65
>> 5--14 Male White 29
>>
>> Thanks,
>> Peng
>>
>> [[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<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<http://www.r-project.org/posting-guide.html>
> and provide commented, minimal, self-contained, reproducible code.
>
[[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.
