<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>