<div dir="ltr"><div><div><div><div>Ola. Bem acho que no ggplot2 deve dar para fazer isso direto, mas eu não sei muito bem como usar o ggplot2 ainda.<br></div>Uma solução seria fazer você mesma as barras usando rect (o próprio barplot usa rect para desenhar as barras).<br><br></div>Fiz um exemplo para ilustrar aqui, mas se você posta-se seu data-frame, poderia ter usado ele no exemplo. (Você pode colar ele facilmente no e-mail usando o comando dput, como mostrado no guia de postagem - <a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>)<br><br></div>Mas vamos la, veja meu exemplo<br><br><br></div><span style="font-family:monospace,monospace">##Simulando alguns dados<br></span><div><div><span style="font-family:monospace,monospace">set.seed(1)<br>colhidos<-rpois(5,5)<br>nao_colhidos<-10-colhidos<br>outra_variavel<-rpois(5,5)<br>dados<-data.frame(colhidos,nao_colhidos,outra_variavel)<br></span></div><div><span style="font-family:monospace,monospace">##Aqui temos uma planilha<br></span></div><div><span style="font-family:monospace,monospace">dados<br></span></div><div><span style="font-family:monospace,monospace"><br></span></div><div><span style="font-family:monospace,monospace">##Você pode começar um gráfico normalmente, fazendo a parte agrupada.<br></span></div><div><span style="font-family:monospace,monospace">barplot(as.matrix(dados[,-3]),xaxt="n")<br>axis(1)<br><br><br></span></div><div><span style="font-family:monospace,monospace">##Dai oque você precisa é de espaço para as outras barras, que você pode espaçar essas barras com space e usar o xlim para para ter mais espaço no final<br></span></div><div><span style="font-family:monospace,monospace">##note que estou usando axis(1) so para você ver a posição das barras.<br></span></div><div><span style="font-family:monospace,monospace">barplot(as.matrix(dados[,-3]),space=2,xlim=c(2,9),xaxt="n")<br>axis(1)<br><br></span></div><div><span style="font-family:monospace,monospace">##Agora é so fazer o resto das barras usando rect, que faz um retangulo, você fala onde as barras vão ficar no x, a largura e a altura, sendo que elas começam no zero.<br>local<-c(3.5,4.5,6.5,7.5,8.5)<br>width_barra<-0.4<br>rect(xleft=local-width_barra, ybottom=0, xright=local+width_barra, ytop=dados$outra_variavel, col=2:6)<br><br></span></div><div><span style="font-family:monospace,monospace">##agrupado é so questão do local, como sua figura não é gigantesca, da para fazer no olhômetro facilmente.</span><br><br></div><div>Mas lembre-se de postar um conjunto de dados seu, mesmo que simulados, porque se eu so copiar pro R, eu usaria ele no exemplo, colar essa planilha pro R é muito ruim.<br></div><div><br><br></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 29 de janeiro de 2017 21:45, Christina Grupioni via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Olá pessoal, <div><br></div><div>Estou precisando fazer um grafico de barras mixto, que mistura agrupado e empilhado. É possível? Qual pacote faz isso? De qualquer forma, sou usuária nova e não consegui fazer nem ao menos o agrupado sem o empilhado. </div><div><br></div><div> A necessidade é a seguinte: a primeira barra será empilhada (variaveis: colhidos e não colhidos). As outras três barras agrupadas devem ser a proporção de semdanos, dleves e dgraves. Na tabela, o X.semdanos representa a porcentagem de semdanos. e o X.leves e o X.graves representam a porcentagem de danos também. Preciso fazer isso para os 8 tratamentos. Preferencialmente no mesmo plot, para efeito de comparação. </div><div><br></div><div>Meu data frame é o seguinte:</div><div><br></div><div><table style="border-collapse:collapse;width:576pt" width="768" cellspacing="0" cellpadding="0" border="0">
<colgroup><col style="width:48pt" width="64" span="12">
</colgroup><tbody><tr style="height:15pt" height="20">
<td style="height:15pt;width:48pt" width="64" height="20">trat</td>
<td style="width:48pt" width="64">colhidos</td>
<td style="width:48pt" width="64">dleves </td>
<td style="width:48pt" width="64">dgraves </td>
<td style="width:48pt" width="64">naocolhidos</td>
<td style="width:48pt" width="64">carga </td>
<td style="width:48pt" width="64">X._leves</td>
<td style="width:48pt" width="64">X._graves</td>
<td style="width:48pt" width="64">cap</td>
<td style="width:48pt" width="64">ef</td>
<td style="width:48pt" width="64">semdanos</td>
<td style="width:48pt" width="64">X.semdanos</td>
</tr>
<tr style="height:15pt" height="20">
<td style="height:15pt" height="20" align="right">1</td>
<td align="right">810</td>
<td align="right">85</td>
<td align="right">81</td>
<td align="right">36</td>
<td align="right">846</td>
<td align="right">10,49</td>
<td align="right">10</td>
<td align="right">332,95</td>
<td align="right">95,74</td>
<td align="right">644</td>
<td align="right">79,51</td>
</tr>
<tr style="height:15pt" height="20">
<td style="height:15pt" height="20" align="right">2</td>
<td align="right">531</td>
<td align="right">65</td>
<td align="right">43</td>
<td align="right">27</td>
<td align="right">558</td>
<td align="right">12,24</td>
<td align="right">8,1</td>
<td align="right">548,63</td>
<td align="right">95,16</td>
<td align="right">423</td>
<td align="right">79,66</td>
</tr>
<tr style="height:15pt" height="20">
<td style="height:15pt" height="20" align="right">3</td>
<td align="right">805</td>
<td align="right">111</td>
<td align="right">34</td>
<td align="right">44</td>
<td align="right">849</td>
<td align="right">13,79</td>
<td align="right">4,22</td>
<td align="right">559,86</td>
<td align="right">94,82</td>
<td align="right">660</td>
<td align="right">81,99</td>
</tr>
<tr style="height:15pt" height="20">
<td style="height:15pt" height="20" align="right">4</td>
<td align="right">1248</td>
<td align="right">192</td>
<td align="right">56</td>
<td align="right">15</td>
<td align="right">1263</td>
<td align="right">15,38</td>
<td align="right">4,49</td>
<td align="right">849,94</td>
<td align="right">98,81</td>
<td align="right">1000</td>
<td align="right">80,13</td>
</tr>
<tr style="height:15pt" height="20">
<td style="height:15pt" height="20" align="right">5</td>
<td align="right">557</td>
<td align="right">49</td>
<td align="right">27</td>
<td align="right">19</td>
<td align="right">576</td>
<td align="right">8,8</td>
<td align="right">4,85</td>
<td align="right">436,82</td>
<td align="right">96,7</td>
<td align="right">481</td>
<td align="right">86,36</td>
</tr>
<tr style="height:15pt" height="20">
<td style="height:15pt" height="20" align="right">6</td>
<td align="right">485</td>
<td align="right">111</td>
<td align="right">85</td>
<td align="right">112</td>
<td align="right">597</td>
<td align="right">22,89</td>
<td align="right">17,53</td>
<td align="right">270,65</td>
<td align="right">81,24</td>
<td align="right">289</td>
<td align="right">59,59</td>
</tr>
<tr style="height:15pt" height="20">
<td style="height:15pt" height="20" align="right">7</td>
<td align="right">530</td>
<td align="right">45</td>
<td align="right">34</td>
<td align="right">25</td>
<td align="right">555</td>
<td align="right">8,49</td>
<td align="right">6,42</td>
<td align="right">577,23</td>
<td align="right">95,5</td>
<td align="right">451</td>
<td align="right">85,09</td>
</tr>
<tr style="height:15pt" height="20">
<td style="height:15pt" height="20" align="right">8</td>
<td align="right">613</td>
<td align="right">194</td>
<td align="right">132</td>
<td align="right">48</td>
<td align="right">661</td>
<td align="right">31,65</td>
<td align="right">21,53</td>
<td align="right">246,54</td>
<td align="right">92,74</td>
<td align="right">287</td>
<td align="right">46,82</td>
</tr></tbody></table><br>Na escuta, <span class="HOEnZb"><font color="#888888"><br><div><br></div>-- <br><div class="m_2539865784078002228gmail_signature"><div dir="ltr"><div><br></div><div style="text-align:center;color:rgb(0,127,64);font-family:"bookman old style","new york",times,serif;font-weight:bold;font-size:18px"><font color="#007f40">CHRISTINA GRUPIONI</font></div><div style="text-align:center;color:rgb(0,127,64);font-family:"bookman old style","new york",times,serif;font-weight:bold;font-size:18px"><span style="font-size:13px;color:rgb(0,0,0);font-family:arial,helvetica,sans-serif">Engenheira Agrícola e Ambiental- CREA BA: 84142</span><br></div><div style="text-align:center"><font color="#993300"><font size="2" face="arial, helvetica, sans-serif"><b>OCA (Organização Cooperativa de Agroecologia</b></font><font size="2" face="arial, helvetica, sans-serif"><b>)</b></font></font></div><div style="text-align:center"><font size="2" color="#000000" face="arial, helvetica, sans-serif"><b>Tecnologias Ecológicas e Sociais</b></font></div><div style="font-family:arial,helvetica,sans-serif;font-size:15.5556px;background-color:rgb(255,255,255);text-align:center"><font><font face="arial, helvetica, sans-serif"><font style="font-size:13px" color="#009900"><a value="+13192012332">(31) 8863-0005, (31) 3892-2236</a></font></font></font></div><div style="font-family:arial,helvetica,sans-serif;font-size:15.5556px;background-color:rgb(255,255,255);text-align:center"><font color="#993300"><i>skype:<font style="background-color:transparent;font-size:13px"><a href="mailto:chrisgrupioni@gmail.com" target="_blank">chrisgrupioni@gmail.com</a></font></i></font></div><br><div><br></div></div></div>
</font></span></div></div>
<br>______________________________<wbr>_________________<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" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div></div>
</div>