如何使用ggplot绘制楼梯台阶功能？

我有这样的图：

用于生成它的R代码是：

DF <- data.frame(date = as.Date(runif(100, 0, 800),origin="2005-01-01"), 
                 outcome = rbinom(100, 1, 0.1))
DF <- DF[order(DF$DateVariable),] #Sort by date
DF$x <- seq(length=nrow(DF)) #Add case numbers (in order, since sorted)
DF$y <- cumsum(DF$outcome)
library(ggplot2)
ggplot(DF, aes(x,y)) + geom_path() + #Ploting
scale_y_continuous(name= "Number of failures") +
scale_x_continuous(name= "Operations performed")

我想要这样的东西：

区别在于出现故障时的步骤形式（我需要矩形）。

我的问题是：

• 如何用ggplot2实现呢？
• 有没有更好的选择来可视化随着时间/迭代进行的失败率？
• 哪种变体更容易理解：这个或那个，或者也许有所不同？

正如@chl所指出的，答案只是在上面的示例中使用了geom_step（）而不是geom_path（）。

结果（该图具有不同的数据）：