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。

結果（プロットのデータは異なります）：