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 <[email protected]> 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 > [email protected]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 > [email protected] > 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 [email protected] 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.
