<div dir="ltr">cada um gasta a tinta que tem....<div><br></div><div>Na versao original dos dados:</div><div><br></div><div><div>d1 <- data.frame(X=1:10,</div><div> Y1=c(-1.2,0,0,0,0,-30.3,-1.6,0,0,-2.4),</div>
<div> Y2=c(0,8.9,62.7,14,7.4,0,0,14.6,9.3,0))</div><div>library(ggplot2)</div><div>ggplot(d1) + geom_area(aes(x=X, y=Y1, fill='blue')) + geom_area(aes(x=X, y=Y2, fill='red'))</div><div><br>
</div><div>Na versao na qual armazenam-se os dados de modo um pouco melhor:</div><div><br></div><div>library(reshape2)</div><div>dd <- melt(d1, measure.vars=c('Y1', 'Y2'), <a href="http://variable.name">variable.name</a>='group', <a href="http://value.name">value.name</a>='Y')</div>
</div><div>ggplot(dd) + geom_area(alpha=.4, aes(x=X, y=Y, fill=group))</div><div><br></div><div><br></div><div>b</div><div><br></div><div><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 14 de agosto de 2014 13:19, <span dir="ltr"><<a href="mailto:luc.souza@usp.br" target="_blank">luc.souza@usp.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="font-family:times new roman,new york,times,serif;font-size:12pt;color:#000000">Walmes, obrigado e desculpe por não explicar melhor.<br>
O gráfico é para demonstrar o balanço hídrico de um solo, com excedente e déficit de agua no mesmo.<br>Seria o mesmo desse link: <a href="http://www.cnpt.embrapa.br/imagens/p_do145-3-f1.png" target="_blank">http://www.cnpt.embrapa.br/imagens/p_do145-3-f1.png</a><div class="">
<br>Lucas<br><br><div><span name="x"></span>Lucas F. de Souza<br>Eng. Agrícola - CONAB<br>M.Sc. Produção Vegetal - UENF<br>Doutor em Agrometeorologia - ESALQ/USP<br>tel: <a href="tel:%2819%29%2098160-7068" value="+5519981607068" target="_blank">(19) 98160-7068</a><span name="x"></span><br>
</div><br></div><hr><blockquote style="border-left:2px solid rgb(16,16,255);margin-left:5px;padding-left:5px;color:#000;font-weight:normal;font-style:normal;text-decoration:none;font-family:Helvetica,Arial,sans-serif;font-size:12pt">
<b>De: </b>"walmes ." <<a href="mailto:walmeszeviani@gmail.com" target="_blank">walmeszeviani@gmail.com</a>><br><b>Para: </b><a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a><br>
<b>Enviadas: </b>Quinta-feira, 14 de Agosto de 2014 13:11:18<br><b>Assunto: </b>Re: [R-br] gráfico area<div><div class="h5"><br><br><div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;display:inline">
Quando alguém diz que quer o mesmo que o Excel me causa um pouco de estranheza</div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;display:inline">
. Eu sinceramente não sei qual a utilidade de se preencher a área abaixo das séries. Penso que só as séries são suficientes. O mesmo para os gráficos de barras 3D ou até aqueles onde os blocos retangulares são substituídos por cones. Não vejo necessidade. Bem, o código abaixo não faz exatamente o que você precisa porque de fato eu não entendi o que você precisa. Mesmo assim, pode ser um ponto de partida. Pensou em polígonos com cores ou padrões então vá para a polygon().<br>
<br><span style="font-family:courier new,monospace">d1 <- data.frame(X=1:10,<br> Y1=c(-1.2,0,0,0,0,-30.3,-1.6,0,0,-2.4),<br> Y2=c(0,8.9,62.7,14,7.4,0,0,14.6,9.3,0))<br><br>plot(Y2~Y1, d1)<br>
plot(Y2~X, d1)<br><br>plot(c(Y1,Y2)~c(X,X), d1)<br>with(d1, polygon(x=c(X,rev(X)),<br> y=c(Y1, rep(min(Y1), length(Y1))),<br> col="blue2"))<br>with(d1, polygon(x=c(X,rev(X)),<br>
y=c(Y2, rep(min(Y2), length(Y2))),<br>
col="green"))</span><br><br>À disposição.<br>Walmes.</div><br></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.</blockquote><br></div></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>
<div dir="ltr"><a href="http://about.me/benilton" style="margin:0px;padding:0px;border:0px;outline:0px;font-size:14px;font-family:proxima-nova-1,proxima-nova-2,Tahoma,Helvetica,Verdana,sans-serif;vertical-align:baseline;color:rgb(43,130,173);text-decoration:none;line-height:18.200000762939453px" target="_blank"><table border="0" cellpadding="0" cellspacing="0" style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline;border-spacing:0px">
<tbody style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline"><tr style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<td colspan="3" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;height:30px"> </td></tr><tr style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<td align="left" valign="top" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-family:inherit;vertical-align:top;line-height:1"><div style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<img src="http://d13pix9kaak6wt.cloudfront.net/signature/me-badge.png" alt="Benilton Carvalho on about.me" width="48" height="48" style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline;display:block"></div>
</td><td style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;width:8px"> </td><td align="left" valign="middle" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-family:inherit;vertical-align:middle;height:48px;line-height:0.9">
<div style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:bold;font-style:inherit;font-size:18px;font-family:proxima-nova-1,Proxima-Nova,Helvetica,Arial,sans-serif;vertical-align:baseline;line-height:1;color:rgb(51,51,51)">
Benilton Carvalho</div><div style="margin:2px 0px 0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-size:12px;font-family:proxima-nova-1,Proxima-Nova,Helvetica,Arial,sans-serif;vertical-align:baseline">
about.me/benilton</div></td></tr><tr style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline"><td colspan="3" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;height:20px">
</td></tr></tbody></table></a></div>
</div>