Funcionou! Obrigado Carolina! On Wed, 2013-02-06 at 13:12 -0200, Carolina R. Caiado Gomes wrote: > Oi Elias, > > > Tenta o seguinte: > > > library(gridExtra) > > library(lattice) > > > x <- seq(pi/4, 5 * pi, length.out = 100) > > y <- seq(pi/4, 5 * pi, length.out = 100) > > r <- as.vector(sqrt(outer(x^2, y^2, "+"))) > > > grid <- expand.grid(x=x, y=y) > > grid$z <- cos(r^2) * exp(-r/(pi^3)) > > > plot1<-levelplot(seu plot) > > plot2<-levelplot(seu outro plot) > > > grid.arrange(plot1,plot2) > > > Att, > > -- > > Carolina Ramos Caiado Gomes > Mestranda em Ecologia e Evolução - UFG > Laboratório de Ecologia de Insetos > +55 62 8215 3595 > _______________________________________________ > 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.
