R 中的现金流量图？

发布于 2024-09-15 23:34:05 字数 609 浏览 1 评论 0原文

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

alt text

我想做一些粗略的东西等价于使用ggplot2。我的想法是使用堆叠的条形图，其中零轴位于中间。有谁知道该怎么做？

以下是一些示例数据：

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

编辑：

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

alt text

带框的图像如下所示：

替代文本

原文

A cashflow diagram is often used when explaining derivatives in financial engineering. It shows the payoffs at different times. I couldn't find a great example online, but it looks something like this:

alt text

I would like to make something roughly equivalent using ggplot2. My thought was to use a stacked bar plot, where the zero axis is somewhere in the middle. Does anyone know how to do this?

Here's some example data:

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

Edit:

Thanks to Hadley's answer; the resulting image looks like:

alt text

With boxes it looks like:

alt text

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

你如我软肋 2024-09-22 23:34:05

这是一次尝试。

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 获得足够的控制。

Here's one attempt.

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"))

But I think you really need to stack the values yourself, because you don't get quite enough control with ggplot2.

回复收藏 0 原文