Algumas alternativas:

library(ggplot2)

## Ex1:

## dados e' o seu conjunto de dados original

ggplot(dados, aes(DATA)) + geom_ribbon(aes(ymax=TEMPMAX, ymin=TEMPMIN), fill='grey70', colour='black') + geom_line(aes(y=TEMPMED))

## nesse caso vc faria dois graficos separados

## Ex2:

## da e' o data.frame criado pelo Walmes

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

##Ex3:

## da e' o data.frame do Walmes

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

##Ex4:

## de novo

ggplot(da, aes(DATA)) + geom_ribbon(aes(ymax=max, ymin=min), fill='grey70') + geom_line(aes(y=med)) + facet_wrap(~var, scales='free_y')

Em 16 de outubro de 2014 09:55, Fernando Souza <nandodesouza@gmail.com> escreveu:

Obrigado Walmes! Fico impressionado com a forma como você simplifica as coisas.

Abraços

On 15-10-2014 23:37, walmes . wrote:
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.

_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.