Dear all, Many Thanks to Jacques VESLOT and Jim Lemon for their helps. Best, Muhammad Subianto
#Jacques VESLOT barplot(t(sapply(split(z1[,1:8], z1$V9),colSums)), beside=T) #Jim Lemon barplot(sapply(z1[1:8],by,z1[9],sum),beside=TRUE) On this day 30/08/2006 11:43, Muhammad Subianto wrote: > 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.