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

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