วิธีการพล็อตขั้นตอนบันไดทำงานด้วย 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 () ในตัวอย่างด้านบน

ผลลัพธ์ (เนื้อเรื่องมีข้อมูลแตกต่างกัน):