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@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@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.