如何在geom_smooth之后显示directlabels而不是在geom_line之后显示？

本文介绍了如何在geom_smooth之后显示directlabels而不是在geom_line之后显示？的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述 29岁程序员，3月因学历无情被辞！ 我使用直接标签来标注我的情节。正如你在这幅图中看到的那样，标签在geom_line之后，但是我想在geom_smooth之后找到它们。这是由directlabels支持吗？或者其他任何想法如何实现这一目标？提前致谢！ 情节图片： http://i.stack.imgur.com/2vZmk.png 这是我的代码： library（ggplot2） set.seed（124234345） ＃生成数据 df.2< - data.frame（n_gram= c（word1），year= rep（100：199），match_count= runif（100，min = 1000，max = 2000） ） df.2 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 =gray，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）） 这就是我使用loess（）来获得标签位置的方法。 ＃函数从黄土中获取最后的Y值 funcDlMove< - function（n_gram）{ model Y $ b $ unique（df.2 $ n_gram） mymethod< - list（top.points， lapply（index，funcDlMove）） ＃绘图 PLOT geom_line（alpha = I（7/10 ），color =gray，show_guide = F）+ stat_smooth（size = 2，span = 0.3，se = F，show_guide = F） direct.label（PLOT，mymethod ） 哪个会产生这样的情节： http://i.stack.imgur.com/FGK1w.png I'm using directlabels to annotate my plot. As you can see in this picture the labels are after geom_line but I want them after geom_smooth. Is this supported by directlabels? Or any other ideas how to achieve this? Thanks in advance!Image of plot: http://i.stack.imgur.com/2vZmk.pngThis is my code:library("ggplot2")set.seed(124234345)# Generate datadf.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)) )# plotggplot(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)) 解决方案 I'm gonna answer my own question here, since I figured it out thanks to a response from Tyler Rinker.This is how I solved it using loess() to get label positions. # Function to get last Y-value from loessfuncDlMove <- function (n_gram) { model <- loess(match_count ~ year, df.2[df.2$n_gram==n_gram,], span=0.3) Y <- model$fitted[length(model$fitted)] Y <- dl.move(n_gram, y=Y,x=200) return(Y)}index <- unique(df.2$n_gram)mymethod <- list( "top.points", lapply(index, funcDlMove) )# PlotPLOT <- 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)direct.label(PLOT, mymethod)Which will generate this plot: http://i.stack.imgur.com/FGK1w.png 这篇关于如何在geom_smooth之后显示directlabels而不是在geom_line之后显示？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！ 上岸，阿里云！