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