Pedro,

Use o script.

library(ggplot2)
library(grid)
library(gridExtra)

graphic1 <- ggplot(......)
graphic2 <- ggplot(......)

tmp <- ggplot_gtable(ggplot_build(graphic1 ))
leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")
legend <- tmp$grobs[[leg]]

grid.arrange(arrangeGrob(graphic1 + opts(legend.position="none"),
                         graphic2 + opts(legend.position="none")),
             legend, widths=c(9, 0.8), nrow=1)


Att.

2015-05-12 16:34 GMT-03:00 Pedro Emmanuel Alvarenga Americano do Brasil [via R-br] <ml-node+s2285057n4664478h54@n4.nabble.com>:
Amigos de R,

Estou mais uma vez batendo cabeça com o ggplot. Eu gostaria que doi graficos ficasse lado a lado na mesma janela, mas infelizmente ainda estou pensando com o plot.default() e não estou conseguindo. Alguma luz?

d <- data.frame(ID=rep(1:10,100),outcome=c(rep(0,500),rep(1,500)),Sex=c(sample(c("F","M"),500,T,c(.8,.2)),sample(c("M","F"),500,T,c(.8,.2))),score=c(rnorm(500,5,10),rnorm(500,20,10)),grave=c("Sim","Não"))

library("lme4")
fit <- glmer(outcome ~  Sex + score + (1 | ID), data = d, family = binomial,subset=grave=="Sim")
summary(fit)
fit2 <- glmer(outcome ~  Sex + score + (1 | ID), data = d, family = binomial,subset=grave=="Não")
summary(fit2)

library("sjPlot")
sjp.glmer(fit,type='fe')
sjp.glmer(fit2,type='fe')

Que a força esteja sempre com voces!

Pedro Brasil

_______________________________________________
R-br mailing list
[hidden email]
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.


If you reply to this email, your message will be added to the discussion below:
http://r-br.2285057.n4.nabble.com/R-br-Como-fazer-para-dois-graficos-do-ggplot-ficarem-lado-a-lado-tp4664478.html
To unsubscribe from R-br, click here.
NAML



--
Alisson Lucrecio da Costa