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