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)

RG#24: Parallel plot

#data 

set.seed(123)

myd <- data.frame (var1 = rnorm (60, 10, 5), var2 = rnorm (60, 8,2), var3 = rnorm (60, 50, 10), var4 = rnorm (60, 15,10), facA = rep(c ("A", "B", "C"), each = 20))

 require(lattice) ;
require(grid)


parallel(~myd[1:4], data = myd, pscales = 0)

parallel(~myd[1:4]|facA, data = myd, layout=c(3,1), pscales = 0)