![]() |
# 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() |