sample_size<-c(500,-72,428,-94,334,-45,289)
totals<-c(TRUE,FALSE,TRUE,FALSE,TRUE,FALSE,TRUE)
labels<-c("Contact list","Uncontactable","","Declined","","Ineligible",
"Final sample")
staircase.plot(sample_size,totals,labels,main="Acquisition of the sample",
total.col="gray",inc.col=2:4,bg.col="#eeeebb",direction="s")
Run the code above in your browser using DataLab