<html><head><style type='text/css'>p { margin: 0; }</style></head><body><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: http://www.cnpt.embrapa.br/imagens/p_do145-3-f1.png<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: (19) 98160-7068<span name="x"></span><br></div><br><hr id="zwchr"><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 ." <walmeszeviani@gmail.com><br><b>Para: </b>r-br@listas.c3sl.ufpr.br<br><b>Enviadas: </b>Quinta-feira, 14 de Agosto de 2014 13:11:18<br><b>Assunto: </b>Re: [R-br] gráfico area<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>_______________________________________________<br>R-br mailing list<br>R-br@listas.c3sl.ufpr.br<br>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<br>Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.</blockquote><br></div></body></html>