library(StatDA)
data(mtcars)
x=mtcars[,1:7]
# Boxes
pdf("multboxes.pdf",width=4,height=5)
par(mar=c(1,0,0,0))
loc=cbind(rep(seq(1,4),8),sort(rep(seq(1,8),4)))
boxes(x/100,key.loc=c(25,1), leglen=1.2,cex=0.5,location=loc*5)
dev.off()
|
|
# Darstellung multivariater Daten:
library(StatDA) data(mtcars) x=mtcars[,1:7] # Boxes pdf("multboxes.pdf",width=4,height=5) par(mar=c(1,0,0,0)) loc=cbind(rep(seq(1,4),8),sort(rep(seq(1,8),4))) boxes(x/100,key.loc=c(25,1), leglen=1.2,cex=0.5,location=loc*5) dev.off() |