<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body>
Obrigado Walmes! Fico impressionado com a forma como você simplifica
as coisas. <br>
<br>
Abraços<br>
<div class="moz-cite-prefix">On 15-10-2014 23:37, walmes . wrote:<br>
</div>
<blockquote
cite="mid:CAFU=EkbtkBd+EPE=o1YEJNgniNcN2T60Lh3mb8tqM442zfi34g@mail.gmail.com"
type="cite">
<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 class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
</body>
</html>