8.5 Plot mit parallelen Koordinaten

# Darstellung multivariater Daten:

# Parallele Koordinaten
data(iris3)
ir <- rbind(iris3[,,1], iris3[,,2], iris3[,,3])
pdf("multigr7.pdf",width=8,height=5)
par(mar=c(4,1,0,1))
parcoord(ir[,c(1,2,3,4)],col=c(rep(1,50),rep(2,50),rep(3,50)))
dev.off()

# Darstellung multivariater Daten:

library(chemometrics)
data(glass)
X=glass[,c("MgO","Cl")]
data(glass.grp)

pdf("multigr8.pdf",width=10,height=4)
par(mar=c(4,1,0,1))
parcoord(glass,col=glass.grp)
dev.off()