RG#25: ladder plot

#data
set.seed(1234)
xv <-data.frame(A=c(1:10)+rnorm (10, 0,1) , B=c(2:11)+rnorm(10, 0, 1))

require(plotrix)

#plot
 par(mfrow=c(1,3))
ladderplot(xv)
ladderplot(xv, col=c(1:5, 13, 14, 19, 20, 24))
ladderplot(xv, col=1:10, vertical=FALSE)