Estou fazendo um gráfico parecido com este do exemplo, onde posiciono os rótulos por grupo: Estou usando o código:
set.seed(1000)
ano=factor(rep(1996:2016,2))
cod=c(rep("K1",21),rep("O1.3",21))
valor=round(c(cumsum(rnorm(21)),cumsum(cumsum(rnorm(21)))),1)
dat=data.frame(cod,ano,valor)
ggplot(dat,aes(x=ano,y=valor, group=cod, color=cod, label=valor)) +
geom_line(aes(linetype = cod), size=0.5) +
geom_point(aes(shape=cod), size=2.5) +
geom_text(data=subset(dat,cod=="K1"), aes(y = valor + 2), size=3) +
geom_text(data=subset(dat,cod=="O1.3"), aes(y = valor - 2), size=3) +
scale_colour_manual(values = c("red", "darkblue")) +
theme_minimal() +
theme(legend.position = "bottom",
legend.title = element_blank(),
axis.title.x = element_blank(),
axis.text.y = element_blank(),
axis.title.y = element_blank())
O resultado que eu gostaria é que a posição dos rótulos acompanhasse os respectivos pontos, ou seja, quando a linha azul está acima de linha vermelha, os rótulos correspondentes azuis estão próximos aos respectivos pontos, acima deles, e vice-versa. O mesmo para a linha vermelha. Alguém pode me ajudar?