<div dir="ltr">Sem consultar a doc pois estou sem computador agora, o seu caso parece ser um que o <font face="monospace">geom_text</font> deve resolver.<div><br></div><div>Dica: salve o objeto retornado pela sua elaborada chamada a <font face="monospace">ggplot</font> e teste com + <font face="monospace">geom_text</font> com as várias opções dessa função.</div><div><br></div><div>HTH</div><div><br></div><div>--</div><div>Cesar Rabak</div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Thu, Feb 3, 2022 at 10:04 AM Pedro Emmanuel Alvarenga Americano do Brasil por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">Amigos de R,<br clear="all"></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">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:rgb(7,55,99)">plot(bla bla bla)</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">mtext("Esquema inicial", side = 3)</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">mtext("Reforço", side = 4)<br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">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:rgb(7,55,99)"># Simulando os dados</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">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:rgb(7,55,99)"># 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:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">Abraços fraternos,</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div><div dir="ltr"><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>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" 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="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div>