Usando o pacote ggplot2: 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) # Lendo os dados. Pelo que eu entendi, tu tem um banco levemente diferente ()
dados <- cbind(dados, id=1:nrow(dados)) # Já qie tem 2 'Citrus 31', tive que criar uma variavel auxiliar como id, se nao usaria a variavel 'Classe' dados <- reshape(dados, varying=list(c('X0.10', 'X10.20')), direction='long', idvar='id', timevar='Camada', times=c('0 - 10', '10 - 20')) require(ggplot2) ggplot(aes(x=Classe, y=X0.10, fill=Camada), data=dados) + geom_bar(position='dodge', stat='identity') 2013/11/2 Rodrigo Muniz <uenf.rodr...@gmail.com> > Caros Membros da Lista, > Tenho o seguinte grupo de dados: > > 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 > > Eu gostaria de plotar esses dados em um único gráfico de barras, sendo que > as > barra correspondente a "Mata nativa" nas camadas 0-10 e 10-20 ficassem > lado a lado, > e o mesmo para as outras classe. > Alguém poderia me dar uma ajuda? > Desde já agradeço. > > > -- > *Rodrigo A. Muniz* > Eng. Agrônomo. Ms Produção Vegetal (UENF) > Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP) > Cel (19) 8300-4333 (Pessoal) > Tel (19) 3375-1196 (Residêncial) > Tel (19) 3447-8537 (Trabalho) > > _______________________________________________ > R-br mailing list > R-br@listas.c3sl.ufpr.br > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça > código mínimo reproduzível. >
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.