r - R中的现金流量图？

Question

在解释金融工程中的衍生品时，经常使用现金流量图。它显示了不同时间的 yield 。我在网上找不到很好的例子，但它看起来像这样:



我想使用 ggplot2 做一些大致相同的事情.我的想法是使用堆叠 bar plot ，其中零轴位于中间的某个位置。有谁知道如何做到这一点？

以下是一些示例数据:

data.frame(time=c(1, 2, 3), positive=c(5, 0, 4), negative=c(-2, 0, 0))

编辑:

感谢哈德利的回答；生成的图像如下所示:



使用盒子，它看起来像:

Answer 1

这是一种尝试。

ggplot(df, aes(time, xend = time)) + 
  geom_segment(aes(y = 0, yend = positive, colour = "positive"),
    position = "stack", arrow = arrow()) + 
  geom_segment(aes(y = 0, yend = negative, colour = "negative"), 
    position = "stack", arrow = arrow()) + 
  scale_colour_manual("Direction", 
    values = c("negative" = "red", "positive" = "black"))

但是我认为您确实需要自己堆叠这些值，因为您无法对 ggplot2 进行足够的控制。