[R-br] Texto na margem do ggplot

[Cesar Rabak]

Sem consultar a doc pois estou sem computador agora, o seu caso parece ser
um que o geom_text deve resolver.

Dica: salve o objeto retornado pela sua elaborada chamada a ggplot e teste
com + geom_text com as várias opções dessa função.

HTH

--
Cesar Rabak


On Thu, Feb 3, 2022 at 10:04 AM Pedro Emmanuel Alvarenga Americano do
Brasil por (R-br) <r-br em listas.c3sl.ufpr.br> wrote:

> Amigos de R,
>
> 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...
> plot(bla bla bla)
> mtext("Esquema inicial", side = 3)
> mtext("Reforço", side = 4)
>
> Mas no ggplot não estou sabendo fazer. Alguma luz?
> # Simulando os dados
> x <- rbind(
> data.frame(id = 1:20,
>            Visita = "Visita 1",
>            Inicial = "Vacina 1",
>            Reforço = "Vacina 1",
>            Titulos =  rnorm(20, 20, 5)),
> data.frame(id = 1:20,
>            Visita = "Visita 2",
>            Inicial = "Vacina 1",
>            Reforço = "Vacina 1",
>            Titulos =  rnorm(20, 30, 5)),
> #
> data.frame(id = 21:40,
>            Visita = "Visita 1",
>            Inicial = "Vacina 2",
>            Reforço = "Vacina 1",
>            Titulos =  rnorm(20, 40, 5)),
> data.frame(id = 21:40,
>            Visita = "Visita 2",
>            Inicial = "Vacina 2",
>            Reforço = "Vacina 1",
>            Titulos =  rnorm(20, 50, 5)),
> #
> data.frame(id = 41:60,
>            Visita = "Visita 1",
>            Inicial = "Vacina 1",
>            Reforço = "Vacina 2",
>            Titulos =  rnorm(20, 15, 5)),
> data.frame(id = 41:60,
>            Visita = "Visita 2",
>            Inicial = "Vacina 1",
>            Reforço = "Vacina 2",
>            Titulos =  rnorm(20, 30, 5)),
> #
> data.frame(id = 61:80,
>            Visita = "Visita 1",
>            Inicial = "Vacina 2",
>            Reforço = "Vacina 2",
>            Titulos =  rnorm(20, 15, 5)),
> data.frame(id = 61:80,
>            Visita = "Visita 2",
>            Inicial = "Vacina 2",
>            Reforço = "Vacina 2",
>            Titulos =  rnorm(60, 30, 5)))
> head(x)
> # Fazendo o grafico...
> ggplot(x,
>        aes(x = Visita,
>            y = Titulos,
>            group = id)) +
>   geom_line(colour = "lightgreen",
>             show.legend = FALSE) +
>   geom_smooth(aes(group = 1),
>               method = lm,
>               colour = "red",
>               na.rm = TRUE) +
>   facet_grid(rows = vars(Inicial),
>              cols = vars(Reforço))+
>   theme_light() +
>   ylab("Titulos de anticorpos") +
>   xlab("Visitas de seguimento")
>
> Abraços fraternos,
>
> Pedro Brasil
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20220203/666ae287/attachment.htm>