堆叠带状图 - ggplot2？

Question

我正在尝试堆叠功能区图，但我无法这样做。这是数据：

以下是数据的链接：https://dl.dropboxusercontent.com/u/4961355/Port_of_Santos.csv

以下是我正在运行的代码：

qplot(data = data, x = Date, y = Market.Share, geom = "ribbon", 
    fill = Company, group = Company, ymin = Market.Share - Market.Share/4, 
    ymax = Market.Share + Market.Share/4, alpha = .3)

结果图非常漂亮，但我真的希望结果图最终能够叠加色带。我也希望线条更平滑......

我想要找到像这样的图表：