Hi, I try to plot bars with different colours in a barchart graphic. My idea is make that all X-Levels from trat var with different colour (grey scale). I search for a solution but dont find any.
Any help? Thanks dados <- structure(list(Medias = c(0.994169096209855, 0.99416342412449, 0.974683544303797, 0.954430379746835, 0.669047619047619, 0.999999998475569, 0.994163424124514, 0.99240506329114, 0.929113924050633, 0.70952380952381, 0.999999999473166, 0.999999999439193, 0.99746835443038, 0.99746835443038, 0.923809523809524, 0.862973760932945, 0.784046692606905, 0.645569620253165, 0.555035128805621, 0.470886075949367, 0.932944606413993, 0.809338521400778, 0.668354430379747, 0.608040201005025, 0.606060606060606), ICI = c(0.976994567793296, 0.98206380431608, 0.953595979983429, 0.928839427641527, 0.622608688475051, 1, 0.982063775957542, 0.976722631854148, 0.899246653813278, 0.664275771030459, 1, 1, 0.98225705686684, 0.98225705686684, 0.894238146710719, 0.802350976424288, 0.729009506353544, 0.575768730809864, 0.487173600236996, 0.401669070838163, 0.890549164444155, 0.762545402476806, 0.607108256850681, 0.545852506856716, 0.546177521647536), ICS = c(0.998541256282513, 0.99811638878729, 0.986325619477418, 0.971104547021077, 0.712411667007983, 1, 0.998116391814118, 0.997548444402608, 0.950613606532198, 0.750959759947381, 1, 1, 0.999643506018429, 0.999643506018429, 0.94561548964544, 0.90715403340414, 0.830504883009395, 0.70967681170475, 0.620904467505572, 0.541241164275512, 0.959662136271508, 0.848739648593426, 0.724387494422558, 0.666908727580774, 0.66291862672965), trat = structure(c(5L, 1L, 3L, 2L, 4L, 5L, 1L, 3L, 2L, 4L, 1L, 5L, 2L, 3L, 4L, 5L, 1L, 2L, 4L, 3L, 5L, 1L, 2L, 3L, 4L), .Label = c("O", "P", "Pl", "T", "TN"), class = "factor"), Yvar = structure(c(2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 5L, 5L, 5L, 5L, 5L, 4L, 4L, 4L, 4L, 4L), .Label = c("0BG", "0BP", "0T", "1A", "1D"), class = "factor")), .Names = c("Medias", "ICI", "ICS", "trat", "Yvar"), row.names = c("tratTN", "tratO", "tratPl", "tratP", "tratT", "tratTN1", "tratO1", "tratPl1", "tratP1", "tratT1", "tratO2", "tratTN2", "tratP2", "tratPl2", "tratT2", "tratTN3", "tratO3", "tratP3", "tratT3", "tratPl3", "tratTN4", "tratO4", "tratP4", "tratPl4", "tratT4"), class = "data.frame") library(lattice) dados$Yvar <- as.factor(dados$Yvar) with(dados,barchart(Medias*100~trat|Yvar,col="gray50")) -- 10ª lei - Seu orientador espera que a sua produtividade seja baixa inicialmente e esteja acima da média após um ano. --Herman, I. P. 2007. Following the law. NATURE, Vol 445, p. 228. > Prof. Ronaldo Reis Júnior | .''`. UNIMONTES/DBG/Lab. Ecologia Comportamental e Computacional | : :' : Campus Universitário Prof. Darcy Ribeiro, Vila Mauricéia | `. `'` CP: 126, CEP: 39401-089, Montes Claros - MG - Brasil | `- Fone: (38) 3229-8192 | ronaldo.r...@unimontes.br | http://www.ppgcb.unimontes.br/lecc | LinuxUser#: 205366 [[alternative HTML version deleted]]
______________________________________________ R-help@r-project.org 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.