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) <[email protected]> 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 > [email protected] > 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. >
_______________________________________________ R-br mailing list [email protected] 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.
