<div dir="ltr"><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">Amigos de R,<br clear="all"></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">Saudações a todos. Gostaria de colocar um texto nas margens superior e direita do gráfico de tal forma que eu consiga diferenciar duas variáveis que têm as mesmas categorias. No graphics seria equivalente a função mtext(). Por exemplo... </div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">plot(bla bla bla)</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">mtext("Esquema inicial", side = 3)</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">mtext("Reforço", side = 4)<br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">Mas no ggplot não estou sabendo fazer. Alguma luz?<br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763"># Simulando os dados</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">x <- rbind(<br>data.frame(id = 1:20, <br>           Visita = "Visita 1", <br>           Inicial = "Vacina 1", <br>           Reforço = "Vacina 1",<br>           Titulos =  rnorm(20, 20, 5)),<br>data.frame(id = 1:20, <br>           Visita = "Visita 2", <br>           Inicial = "Vacina 1", <br>           Reforço = "Vacina 1",<br>           Titulos =  rnorm(20, 30, 5)),<br>#<br>data.frame(id = 21:40, <br>           Visita = "Visita 1", <br>           Inicial = "Vacina 2", <br>           Reforço = "Vacina 1",<br>           Titulos =  rnorm(20, 40, 5)),<br>data.frame(id = 21:40, <br>           Visita = "Visita 2", <br>           Inicial = "Vacina 2", <br>           Reforço = "Vacina 1",<br>           Titulos =  rnorm(20, 50, 5)),<br>#<br>data.frame(id = 41:60, <br>           Visita = "Visita 1", <br>           Inicial = "Vacina 1", <br>           Reforço = "Vacina 2",<br>           Titulos =  rnorm(20, 15, 5)),<br>data.frame(id = 41:60, <br>           Visita = "Visita 2", <br>           Inicial = "Vacina 1", <br>           Reforço = "Vacina 2",<br>           Titulos =  rnorm(20, 30, 5)),<br>#<br>data.frame(id = 61:80, <br>           Visita = "Visita 1", <br>           Inicial = "Vacina 2", <br>           Reforço = "Vacina 2",<br>           Titulos =  rnorm(20, 15, 5)),<br>data.frame(id = 61:80, <br>           Visita = "Visita 2", <br>           Inicial = "Vacina 2", <br>           Reforço = "Vacina 2",<br>           Titulos =  rnorm(60, 30, 5)))<br>head(x)</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763"># Fazendo o grafico...<br>ggplot(x,<br>       aes(x = Visita,<br>           y = Titulos,<br>           group = id)) +<br>  geom_line(colour = "lightgreen",<br>            show.legend = FALSE) +<br>  geom_smooth(aes(group = 1),<br>              method = lm,<br>              colour = "red",<br>              na.rm = TRUE) +<br>  facet_grid(rows = vars(Inicial),<br>             cols = vars(Reforço))+<br>  theme_light() +<br>  ylab("Titulos de anticorpos") +<br>  xlab("Visitas de seguimento")<br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">Abraços fraternos,</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763"><br></div><div><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><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" size="4">Pedro Brasil</font></div></div></div></div></div></div></div></div></div>