[R-br] Texto na margem do ggplot

[Pedro Emmanuel Alvarenga Americano do Brasil]

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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20220203/9e751865/attachment.htm>