R中逐步函数之间的区域

Question

我想绘制两个逐步功能之间的区域。

我试过geom_ribbon，但是我得到了插值而不是间隔常数。

comb = data.frame(time=rexp(20),n1=rep(1:10,each=2),n2=seq(from=2, to=11.5,by=0.5))
ggplot(comb) + geom_ribbon(aes(x=cumsum(time), ymin=n1, ymax=n2), fill="blue", alpha=.4) + geom_step(aes(x=cumsum(time), y=n1))+ geom_step(aes(x=cumsum(time), y=n2))

感谢任何帮助。

Answer 1

一个简单的解决方法是将您的cumsum(time)移到comb数据框中：

comb$ctime <- cumsum(comb$time)

然后您可以使用geom_rect()，如下所示：

ggplot() + 
  geom_rect(aes(xmin = ctime, xmax = lead(ctime), 
                ymin = n1, ymax = n2), 
            fill = "blue", alpha = 0.4) +
  geom_step(aes(x=ctime, y=n1))+ 
  geom_step(aes(x=ctime, y=n2))

哪个收益率：