Segue minha sugestão. require(latticeExtra) ## É possível fazer com layer mais aí tem-se que estar atento à ## amplitude dos eixos. xyplot(URAMED+TEMPMED~DATA, dados, outer=TRUE, scales=list(y="free"))+ layer(with(dados, panel.lines(URAMIN~DATA)), packets=1)+ layer(with(dados, panel.lines(URAMAX~DATA)), packets=1) ## Melhor e dispor os dados de uma forma mais conveniente. str(dados) tem <- subset(dados, select=c(DATA, TEMPMED, TEMPMIN, TEMPMAX)) umi <- subset(dados, select=c(DATA, URAMED, URAMIN, URAMAX)) names(tem)[2:4] <- names(umi)[2:4] <- c("med","min","max") tem$var <- "temp" umi$var <- "umid" da <- rbind(tem, umi) str(da) xyplot(med+min+max~DATA|var, data=da, scales=list(y="free"), type="l", lty=c(1,2,2), col=c("black","gray50","gray50")) À disposição. Walmes.