Как построить функцию ступеней лестницы с помощью 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 () в примере выше.

Результат (сюжет имеет разные данные):