Добавление уникальной линии тренда в барплот в ggplot2

Это частично связано с моим вопросом вчера.

Итак, вот данные и участок, созданный в GGPlot2.

df = data.frame(date=c(rep(2008:2013, by=1)),
                value=c(303,407,538,696,881,1094))


ggplot(df, aes(date, value, width=0.64)) + 
        geom_bar(stat = "identity", fill="#336699", colour="black") +
        ylim(c(0,1400)) + opts(title="U.S. Smartphone Users") +
        opts(axis.text.y=theme_text(family="sans", face="bold")) +
        opts(axis.text.x=theme_text(family="sans", face="bold")) +
        opts(plot.title = theme_text(size=14, face="bold")) +
        xlab("Year") + ylab("Users (in millions)") +        
        opts(axis.title.x=theme_text(family="sans")) +
        opts(axis.title.y=theme_text(family="sans", angle=90)) +
        geom_segment(aes(x=2007.6, xend=2013, y=550, yend=1350), arrow=arrow(length=unit(0.4,"cm")))

Можно ли произвести свагнущую линию тренда на следующем графике с GGPlot2

Я создал график в R, а затем сделал предел его в Adobe Photoshop, и мне интересно, если бы выпустить эту волну Линия прямо в R.

Если это не может быть сделано в GGPlot2, есть ли какие-либо конкретные пакеты R, которые были бы поддаются этой задаче?

Я не спрашиваю о воспроизведении графика. Это не проблема. Просто создание линии тренда, кажется, является проблемой.