[R-br] Como fazer para dois graficos do ggplot ficarem lado a lado

[Alisson Lucrécio]

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 em 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] <http:///user/SendEmail.jtp?type=node&node=4664478&i=0>
> 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
> <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=YWxpc3Nvbi5sdWNyZWNpb0BpZmdvaWFuby5lZHUuYnJ8MzM1Nzk4MnwtNTI1NDI5NDE3>
> .
> NAML
> <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>
>



-- 
Alisson Lucrecio da Costa
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150512/0e446d79/attachment.html>