<div dir="ltr">Algumas alternativas:<div><br></div><div><br></div><div>library(ggplot2)</div><div><br></div><div>## Ex1:</div><div>## dados e' o seu conjunto de dados original</div><div>ggplot(dados, aes(DATA)) + geom_ribbon(aes(ymax=TEMPMAX, ymin=TEMPMIN), fill='grey70', colour='black') + geom_line(aes(y=TEMPMED))<br></div><div>## nesse caso vc faria dois graficos separados</div><div><br></div><div>## Ex2:</div><div>## da e' o data.frame criado pelo Walmes</div><div>ggplot(da, aes(DATA)) + geom_ribbon(aes(ymax=max, ymin=min), fill='grey70', colour='black') + geom_line(aes(y=med)) + facet_wrap(~var, scales='free_y')<br></div><div><br></div><div>##Ex3:</div><div>## da e' o data.frame do Walmes</div><div>ggplot(da, aes(DATA)) + geom_ribbon(aes(ymax=max, ymin=min), colour='black', alpha=0) + geom_line(aes(y=med)) + facet_wrap(~var, scales='free_y')<br></div><div><br></div><div>##Ex4:</div><div>## de novo</div><div>ggplot(da, aes(DATA)) + geom_ribbon(aes(ymax=max, ymin=min), fill='grey70') + geom_line(aes(y=med)) + facet_wrap(~var, scales='free_y')<br></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 16 de outubro de 2014 09:55, Fernando Souza <span dir="ltr"><<a href="mailto:nandodesouza@gmail.com" target="_blank">nandodesouza@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div>
Obrigado Walmes! Fico impressionado com a forma como você simplifica
as coisas. <br>
<br>
Abraços<div><div class="h5"><br>
<div>On 15-10-2014 23:37, walmes . wrote:<br>
</div>
</div></div><blockquote type="cite"><div><div class="h5">
<div dir="ltr">
<div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Segue minha sugestão.<br>
</div>
<div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br>
<span style="font-family:courier new,monospace">require(latticeExtra)<br>
<br>
## É possível fazer com layer mais aí tem-se que estar
atento à<br>
## amplitude dos eixos.<br>
<br>
xyplot(URAMED+TEMPMED~DATA, dados,<br>
outer=TRUE, scales=list(y="free"))+<br>
layer(with(dados, panel.lines(URAMIN~DATA)),
packets=1)+<br>
layer(with(dados, panel.lines(URAMAX~DATA)),
packets=1)<br>
<br>
## Melhor e dispor os dados de uma forma mais conveniente.<br>
str(dados)<br>
<br>
tem <- subset(dados, select=c(DATA, TEMPMED, TEMPMIN,
TEMPMAX))<br>
umi <- subset(dados, select=c(DATA, URAMED, URAMIN,
URAMAX))<br>
names(tem)[2:4] <- names(umi)[2:4] <-
c("med","min","max")<br>
tem$var <- "temp"<br>
umi$var <- "umid"<br>
<br>
da <- rbind(tem, umi)<br>
str(da)<br>
<br>
xyplot(med+min+max~DATA|var, data=da, scales=list(y="free"),<br>
type="l", lty=c(1,2,2),
col=c("black","gray50","gray50"))<br>
<br>
À disposição.<br>
Walmes.<br>
</span><br>
</div>
</div>
<br>
<fieldset></fieldset>
<br>
</div></div><span class=""><pre>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<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>
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.</pre>
</span></blockquote>
<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></div>