[R] multiple bar for barchart

[Richard M. Heiberger]

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