ggplot：如何为每条曲线添加直接标签

Question

我试图在密度图中为每条曲线添加直接标签。标签类似于tutorial中的情节，但是我无法使其有效。

这是我的数据框：

 values <- runif(1200, 35, 60)
 ind <- as.factor(rep(c(1:6), each=200))
 inout <- as.factor(rep(c(1:2), each =600))
 df <- data.frame(values,ind,inout)

这是密度图：

 ggplot(df) + 
    geom_density(aes(x=values, group=interaction(ind,inout), colour=factor(inout)), alpha=1) +
    geom_density(aes(x=values, group=inout, fill=factor(inout)), alpha=.4) +
    theme(text = element_text(size=25)) + 
    theme(legend.justification=c(1,1), legend.position=c(1,1)) + 
    guides(colour=FALSE) +
    scale_fill_discrete(name="Ave.",breaks=c("1", "2"),labels=c("S1", "S2"))

如何为两组（即S1和S2）的每条曲线添加直接标签（即1到6）？两条平均曲线不需要贴标签。

非常感谢。