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