¿Cómo mostrar directlabels después de geom_smooth y no después de geom_line?
Estoy usando directlabels para anotar mi trama. Como puede ver en esta imagen, las etiquetas están después de geom_line pero las quiero después de geom_smooth. ¿Está esto soportado por directlabels? ¿O alguna otra idea de cómo lograr esto? ¡Gracias por adelantado!
Este es mi código:
<code>library("ggplot2") set.seed(124234345) # Generate data df.2 <- data.frame("n_gram" = c("word1"), "year" = rep(100:199), "match_count" = runif(100 ,min = 1000 , max = 2000)) df.2 <- rbind(df.2, data.frame("n_gram" = c("word2"), "year" = rep(100:199), "match_count" = runif(100 ,min = 1000 , max = 2000)) ) # plot ggplot(df.2, aes(year, match_count, group=n_gram, color=n_gram)) + geom_line(alpha = I(7/10), color="grey", show_guide=F) + stat_smooth(size=2, span=0.3, se=F, show_guide=F) + geom_dl(aes(label=n_gram), method = "last.bumpup", show_guide=F) + xlim(c(100,220)) </code>