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,