barplot(t(sapply(split(z1[,1:8], z1$V9),colSums)), beside=T) ------------------------------------------------------------------- Jacques VESLOT
CNRS UMR 8090 I.B.L (2ème étage) 1 rue du Professeur Calmette B.P. 245 59019 Lille Cedex Tel : 33 (0)3.20.87.10.44 Fax : 33 (0)3.20.87.10.31 http://www-good.ibl.fr ------------------------------------------------------------------- Muhammad Subianto a écrit : > Dear all, > I have a dataset. I want to make barplot from this data. > Zero1 <- " > V1 V2 V3 V4 V5 V6 V7 V8 V9 > 1 1 0 0 0 1 0 0 0 Positive > 2 0 0 1 0 1 0 1 1 Negative > 3 0 0 1 0 0 0 1 1 Positive > 4 0 1 0 1 1 1 0 1 Negative > 5 0 0 1 0 1 1 0 0 Positive > 6 0 1 0 0 1 1 1 1 Negative > 7 1 0 1 1 1 1 1 1 Negative > 8 0 0 0 0 1 0 0 1 Negative > 9 0 1 1 1 1 0 0 1 Negative > 10 0 0 0 1 1 0 1 0 Positive > 11 0 0 0 0 1 0 0 1 Negative > 12 0 0 1 1 1 1 1 0 Positive > 13 0 1 1 0 1 1 1 1 Negative" > > z1 <- read.table(textConnection(Zero1), header=TRUE) > z1 > str(z1) > > A simple way I can use mosaic plot > mosaicplot(table(z1)) > library(vcd) > mosaic(table(z1)) > > I have tried to learn ?xtabs ?table and ?ftable but I can't figure out. > I need a barplot for all variables and the result maybe like > > | | | | > | | | | | | | | | > |pos|neg| |pos|neg| |pos|neg| > | | | | | | | | | > --------- --------- --------- > v1 v2 v3 .... v7 v8 > > Thanks you for any helps. > Regards, Muhammad Subianto > > ______________________________________________ > R-help@stat.math.ethz.ch 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@stat.math.ethz.ch 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.