multiple bar for barchart
Start here dm <- read.table(text=" Group.1 V1 V2 V3 V4 V5 V6 V7 V8 1 C/L NA 15.5 732179 875270.6 -143091.46 1107270 1088300 18964.40 2 C/S NA 15.5 803926 850352.1 -46426.03 1395710 1312310 83403.30 3 D/D NA 15.5 751660 857828.2 -106168.17 1340360 1322790 17569.30 4 D/F NA 15.5 724924 969418.7 -244494.67 1181280 1160760 20519.20 5 D/I NA 15.5 755841 842130.5 -86289.48 1264250 1241750 22495.20 6 D/L NA 15.5 731904 875340.0 -143435.84 1107600 1087940 19657.30 7 D/S NA 15.5 798289 844102.0 -45812.85 1399840 1305000 94832.10 8 I/F NA 15.5 871670 1074136.3 -202466.58 1304290 1249006 55286.59 9 I/I NA 15.5 897718 1029579.0 -131861.35 1542810 1398716 144100.07 10 I/L NA 15.5 2628110 862466.8 1765645.67 2628110 1073510 1554610.00 11 I/S NA 15.5 2628110 831486.8 1796627.33 2475450 1282100 1193350.00 ", header=TRUE) library(reshape) dm.melt <- melt(dm[,c(1,4,5,6,7)], id="Group.1") barchart(value ~ variable | Group.1, data=dm.melt, origin=0)
On Mon, Dec 9, 2013 at 9:19 AM, Adel ESSAFI <adelessafi at gmail.com> wrote:
Hello list, I have the following data on "dm" table
dm
Group.1 V1 V2 V3 V4 V5 V6 V7 V8 1 C/L NA 15.5 732179 875270.6 -143091.46 1107270 1088300 18964.40 2 C/S NA 15.5 803926 850352.1 -46426.03 1395710 1312310 83403.30 3 D/D NA 15.5 751660 857828.2 -106168.17 1340360 1322790 17569.30 4 D/F NA 15.5 724924 969418.7 -244494.67 1181280 1160760 20519.20 5 D/I NA 15.5 755841 842130.5 -86289.48 1264250 1241750 22495.20 6 D/L NA 15.5 731904 875340.0 -143435.84 1107600 1087940 19657.30 7 D/S NA 15.5 798289 844102.0 -45812.85 1399840 1305000 94832.10 8 I/F NA 15.5 871670 1074136.3 -202466.58 1304290 1249006 55286.59 9 I/I NA 15.5 897718 1029579.0 -131861.35 1542810 1398716 144100.07 10 I/L NA 15.5 2628110 862466.8 1765645.67 2628110 1073510 1554610.00 11 I/S NA 15.5 2628110 831486.8 1796627.33 2475450 1282100 1193350.00
barchart (dm[,4] ~ dm[,1])
For each value of Group.1 I want to draw 4 bars (v3,v4, v6 and v7).
Can you suggest me a solution please
barchat draws only one value.
regards
--
PhD candidate in Computer Science
Address
3 avenue lamine, cit? ezzahra, Sousse 4000
Tunisia
tel: +216 97 246 706 (+33640302046 jusqu'au 15/6)
fax: +216 71 391 166
[[alternative HTML version deleted]]
______________________________________________ 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.