Merdiven basamakları fonksiyonu ggplot ile nasıl çizilir?

Ben böyle bir grafik var:

Onu oluşturmak için R kodu:

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

Böyle bir şey istiyorum:

Fark, başarısızlık durumunda adımlar şeklindedir (dikdörtgene ihtiyacım var).

Sorularım:

• Bunu ggplot2 ile nasıl başarabilirim?
• Zaman içindeki başarısızlık oranını / yinelemeleri görselleştirmek için daha iyi bir seçenek var mı?
• Hangi varyantı anlamak daha kolaydır: şu veya bu veya belki farklı bir şey?

@Chl tarafından belirtildiği gibi, cevap yukarıdaki örnekte geom_path () yerine geom_step () kullanmaktır.

Sonuç (çizimde farklı veriler var):