Dear R-experts..
It is a re-post, as I am not sure if I sent it to the right address... sorry
if it is a duplicate...
I am trying to generate barchart with legend inside each panel..where the
rectangular colors indicate the values for "DN". I have not been successful
in generating labels inside.. what am I missing?
Following is a sample dataset..
Sno DN EP Y1 Y2
1 1 D1 A20 19 19
2 1 D1 A50 8 9
3 1 D1 A70 3 4
4 2 D2 A20 22 22
5 2 D2 A50 13 14
6 2 D2 A70 6 7
7 3 D2 A20 23 23
8 3 D2 A50 12 13
9 4 D1 A20 19 19
10 4 D1 A50 10 10
11 4 D1 A70 3 4
12 5 D1 A20 28 28
13 5 D1 A50 16 16
14 5 D1 A70 7 7
15 5 D3 A20 24 24
16 5 D3 A50 14 14
17 5 D3 A70 6 6
18 6 D4 A20 15 15
19 6 D4 A50 7 8
20 6 D4 A70 3 3
21 7 D5 A20 19 20
22 7 D5 A50 5 6
23 7 D5 A70 3 3
24 8 D6 A20 26 26
25 8 D6 A50 10 10
26 9 D7 A20 30 30
27 9 D7 A50 10 9
28 10 D7 A20 21 22
29 10 D7 A50 10 10
30 10 D7 A70 4 4
barchart(Y1~factor(as.character(EP))|Sno,
groups=DN,
orgin=0,
subscripts=T,
panel = function(x,y,groups=groups, ...) {
require(grid)
panel.barchart(x,y,groups=groups,...)
#panel.text(...)
draw.key(list(
rectangles=list(col=rainbow(6)),
text=list(lab='DN'),
draw = TRUE,
vp = viewport(x = unit(0.5, "npc"), y = unit(0.5, "npc"))))},
data=x1,
distribute.type=T,
layout=c(3,3),
scales=list(rot=45,relation="free"))
Thanks,
Santosh
[[alternative HTML version deleted]]
______________________________________________
[email protected] 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.
