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)