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.