Làm thế nào để vẽ một chức năng bước cầu thang với ggplot?

Tôi có biểu đồ như thế này:

Mã R để tạo ra nó là:

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

Tôi muốn một cái gì đó như thế này:

Sự khác biệt là ở dạng các bước trong trường hợp thất bại (tôi cần hình chữ nhật).

Câu hỏi của tôi là:

• Làm thế nào để đạt được điều này với ggplot2?
• Có lựa chọn nào tốt hơn để hình dung tỷ lệ thất bại theo thời gian / lần lặp được thực hiện không?
• Biến thể nào dễ hiểu hơn: cái này hay cái kia hoặc, có thể là cái gì đó khác nhau?

Như đã lưu ý bởi @chl, câu trả lời chỉ đơn giản là sử dụng geom_step () thay vì geom_path () trong ví dụ trên.

Kết quả (cốt truyện có dữ liệu khác nhau):