Usando a lattice dados <- read.table(text='Classe 0-10 10-20 Mata_Nativa 10.046667 7.600000 Citrus_37 12.363333 23.126667 Citrus_37 15.326667 27.580000 Citrus_24 4.380000 8.856667 Citrus_18 10.430000 21.576667 Citrus_31 9.196667 18.036667 Pasto_37 6.690000 12.533333', header=TRUE) dados <- cbind(dados, id=1:nrow(dados)) ## dados <- reshape(dados, ## varying=list(c('X0.10', 'X10.20')), ## direction='long', ## idvar='id', ## timevar='Camada', ## times=c('0 - 10', '10 - 20')) names(dados)[2:3] <- c("0-10","10-20") require(reshape) da <- melt(dados, measure.vars=2:3) str(da) require(lattice) barchart(value~Classe, groups=variable, data=da, auto.key=list(columns=2)) À disposição. Walmes. ========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 skype: walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================