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 <msubianto@(protected):
>> 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@(protected)
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.