Dear all, To Gabor Grothendieck, (again) thanks you very much for your help. Now, I can play around with lattice package.
Best, Muhammad Subianto #Gabor #reduce the data to a frequency matrix and #then plot it using classic and then lattice graphics: zm <- as.matrix(rowsum(z1[-9], z1[,9])) barplot(zm, beside = TRUE, col = grey.colors(2)) legend("topleft", legend = levels(z1[,9]), fill = grey.colors(2)) library(lattice) barchart(Freq ~ Var2, as.data.frame.table(zm), groups = Var1, origin = 0, auto.key = TRUE) On this day 30/08/2006 16:18, Gabor Grothendieck wrote: > Try this. First we reduce the data to a frequency matrix and > then plot it using classic and then lattice graphics: > > zm <- as.matrix(rowsum(z1[-9], z1[,9])) > > barplot(zm, beside = TRUE, col = grey.colors(2)) > legend("topleft", legend = levels(z1[,9]), fill = grey.colors(2)) > > library(lattice) > barchart(Freq ~ Var2, as.data.frame.table(zm), > groups = Var1, origin = 0, auto.key = TRUE) > > On 8/30/06, Muhammad Subianto <[EMAIL PROTECTED]> 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.