Desejo manter os rótulos de dados organizados de forma que não se sobreponham entre si.
A ideia é mantê-los acima do geom_point
ou abaixo.. dependendo da posição da linha.
Como posso proceder ?
Segue o comando simplificado e uma figura como exemplo do problema.
dt <- data.frame(periodo = c("JUN", "JUL","AGO","SET","OUT","NOV","DEZ"),
diam = c(2.76,2.75,2.55,2.81,2.1,2.2,2.34,2.89,2.96,2.77,2.88,2.99,2.10,2.11))
dt$Variedade <- rep(c("A", "B"), each = nrow(dt)/2)
dt$periodo <- factor(dt$periodo, levels = c("JUN", "JUL","AGO","SET","OUT","NOV","DEZ"))
ggplot(dt, aes(x = periodo, y = diam, group = Variedade)) +
geom_point() +
geom_line() +
geom_label(aes(label = diam)) +
scale_y_continuous(breaks = c(2,4), limits = c(1,5))