<div dir="ltr">Pedro,<div><br></div><div>Use o script.</div><div><br></div><div><div>library(ggplot2)</div><div>library(grid)</div><div>library(gridExtra)</div><div><br></div><div>graphic1 <- ggplot(......)</div><div>graphic2 <- ggplot(......)<br></div><div><br></div><div><div>tmp <- ggplot_gtable(ggplot_build(graphic1 ))</div><div>leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")</div><div>legend <- tmp$grobs[[leg]]</div></div><div><br></div><div><div>grid.arrange(arrangeGrob(graphic1 + opts(legend.position="none"),<br></div><div> graphic2 + opts(legend.position="none")),</div><div> legend, widths=c(9, 0.8), nrow=1)</div></div></div><div><br></div><div><br></div><div>Att.</div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-05-12 16:34 GMT-03:00 Pedro Emmanuel Alvarenga Americano do Brasil [via R-br] <span dir="ltr"><<a href="mailto:ml-node+s2285057n4664478h54@n4.nabble.com" target="_blank">ml-node+s2285057n4664478h54@n4.nabble.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr"><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">Amigos de R,</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><br></div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">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?</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><br></div><div class="gmail_default"><div class="gmail_default"><font color="#000066" face="courier new, monospace">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"))</font></div><div class="gmail_default"><font color="#000066" face="courier new, monospace"><br></font></div><div class="gmail_default"><font color="#000066" face="courier new, monospace">library("lme4")</font></div><div class="gmail_default"><font color="#000066" face="courier new, monospace">fit <- glmer(outcome ~ Sex + score + (1 | ID), data = d, family = binomial,subset=grave=="Sim")</font></div><div class="gmail_default"><font color="#000066" face="courier new, monospace">summary(fit)</font></div><div class="gmail_default"><font color="#000066" face="courier new, monospace">fit2 <- glmer(outcome ~ Sex + score + (1 | ID), data = d, family = binomial,subset=grave=="Não")</font></div><div class="gmail_default"><font color="#000066" face="courier new, monospace">summary(fit2)</font></div><div class="gmail_default"><font color="#000066" face="courier new, monospace"><br></font></div><div class="gmail_default"><font color="#000066" face="courier new, monospace">library("sjPlot")</font></div><div class="gmail_default"><font color="#000066" face="courier new, monospace">sjp.glmer(fit,type='fe')</font></div><div class="gmail_default"><font color="#000066" face="courier new, monospace">sjp.glmer(fit2,type='fe')</font></div></div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><br></div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">Que a força esteja sempre com voces!</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><br></div><div><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066">Pedro Brasil</font></div></div></div></div></div></div>
</div>
<br>_______________________________________________
<br>R-br mailing list
<br><a href="http:///user/SendEmail.jtp?type=node&node=4664478&i=0" rel="nofollow" link="external" target="_blank">[hidden email]</a>
<br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.
<br>
<br>
<hr noshade size="1" color="#cccccc">
<div style="color:#444;font:12px tahoma,geneva,helvetica,arial,sans-serif">
<div style="font-weight:bold">If you reply to this email, your message will be added to the discussion below:</div>
<a href="http://r-br.2285057.n4.nabble.com/R-br-Como-fazer-para-dois-graficos-do-ggplot-ficarem-lado-a-lado-tp4664478.html" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-Como-fazer-para-dois-graficos-do-ggplot-ficarem-lado-a-lado-tp4664478.html</a>
</div>
<div style="color:#666;font:11px tahoma,geneva,helvetica,arial,sans-serif;margin-top:.4em;line-height:1.5em">
To unsubscribe from R-br, <a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=YWxpc3Nvbi5sdWNyZWNpb0BpZmdvaWFuby5lZHUuYnJ8MzM1Nzk4MnwtNTI1NDI5NDE3" target="_blank">click here</a>.<br>
<a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml" rel="nofollow" style="font:9px serif" target="_blank">NAML</a>
</div></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;display:inline!important;float:none;background-color:rgb(255,255,255)">Alisson Lucrecio da Costa</span></div></div>
</div>