使用ggplot堆栈图基于总值绘制线性线

Question

我再次问这个问题，我之前的问题没有得到任何打击。也许我错了。这是我的数据框：

   Date     Server  HardDisk 
1 2010-01-30 server1       100 
2 2010-02-28 Server1       400   
3 2010-03-30 Server1       300 
4 2010-01-30 Server2       200 
5 2010-02-28 Server2       500   
6 2010-03-30 Server2       300 

我想要做的是创建一个基于Server的堆栈栏（每个服务器应该根据日期堆栈）。我可以轻松地做到这一点。我还想根据Date的总值使用geom_smooth（）添加一条直线。

我可以像这样创建堆栈图：

ggplot(x, aes(Date, HardDisk) +      geom_bar(aes(fill=Server), stat="identity",  position="stack") +      theme_bw()

如何在此堆栈图表顶部添加geom_smooth（）。 Geom_smooth（）应基于每个日期的总值：

Date          Hardisk
2010-01-30     300
2010-02-28     900
2010-03-30     600

任何想法？