<div dir="ltr">RESOLVIDO.<div>OBRIGADO</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/11/2 Rodrigo Coster <span dir="ltr"><<a href="mailto:rcoster@gmail.com" target="_blank">rcoster@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Usando o pacote ggplot2:<div><br></div><div><div>dados <- read.table(text='Classe 0-10 10-20 </div>
<div>Mata_Nativa 10.046667 7.600000</div><div>Citrus_37 12.363333 23.126667</div><div>Citrus_37 15.326667 27.580000</div>
<div>Citrus_24 4.380000 8.856667</div><div>Citrus_18 10.430000 21.576667</div><div>Citrus_31 9.196667 18.036667</div><div>Pasto_37 6.690000 12.533333', header=TRUE) # Lendo os dados. Pelo que eu entendi, tu tem um banco levemente diferente ()</div>
<div><br></div><div>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'</div><div>dados <- reshape(dados, varying=list(c('X0.10', 'X10.20')), direction='long', idvar='id', timevar='Camada', times=c('0 - 10', '10 - 20'))</div>
<div><br></div><div>require(ggplot2)</div><div>ggplot(aes(x=Classe, y=X0.10, fill=Camada), data=dados) + geom_bar(position='dodge', stat='identity') </div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">
2013/11/2 Rodrigo Muniz <span dir="ltr"><<a href="mailto:uenf.rodrigo@gmail.com" target="_blank">uenf.rodrigo@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div class="h5">
<div dir="ltr"><div>Caros Membros da Lista,</div><div>Tenho o seguinte grupo de dados:</div><div> </div><div> 0 - 10 10 - 20</div><div>Mata Nativa 10.046667 7.600000</div><div>Citrus 37 12.363333 23.126667</div>
<div>Citrus 37 15.326667 27.580000</div><div>Citrus 24 4.380000 8.856667</div><div>Citrus 18 10.430000 21.576667</div><div>Citrus 31 9.196667 18.036667</div><div>Pasto 37 6.690000 12.533333</div>
<div><br></div><div>Eu gostaria de plotar esses dados em um único gráfico de barras, sendo que as </div><div>barra correspondente a "Mata nativa" nas camadas 0-10 e 10-20 ficassem lado a lado,</div><div>e o mesmo para as outras classe.</div>
<div>Alguém poderia me dar uma ajuda?</div><div>Desde já agradeço.</div><span><font color="#888888"><div><br></div><div><br></div>-- <br><b>Rodrigo A. Muniz</b><div>Eng. Agrônomo. Ms Produção Vegetal (UENF)</div>
<div>Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP)</div>
<div>Cel <a href="tel:%2819%29%208300-4333" value="+551983004333" target="_blank">(19) 8300-4333</a> (Pessoal)</div><div>Tel <a href="tel:%2819%29%203375-1196" value="+551933751196" target="_blank">(19) 3375-1196</a> (Residêncial)</div>
<div>Tel <a href="tel:%2819%29%203447-8537" value="+551934478537" target="_blank">(19) 3447-8537</a> (Trabalho)</div>
</font></span></div>
<br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>
<b>Rodrigo A. Muniz</b><div>Eng. Agrônomo. Ms Produção Vegetal (UENF)</div><div>Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP)</div><div>Cel (19) 8300-4333 (Pessoal)</div><div>Tel (19) 3375-1196 (Residêncial)</div>
<div>Tel (19) 3447-8537 (Trabalho)</div>
</div>