data(iris)
# Scatter plot
data(iris)
pdf("multigr2.pdf",width=5,height=5)
par(mar=c(4,4,2,1))
plot(iris[,1:2],cex=iris[,3]/2,pch=1,cex.lab=1.2)
points(iris[,1:2],cex=iris[,3]/2,col=gray(iris[,4]/max(iris[,4])),pch=16)
title("Petal.Length = size; Petal.Width = gray level")
dev.off()
data(iris)
# alle Paare von Scatter plots
pdf("multigr1.pdf",width=5,height=5)
par(mar=c(1,1,1,1))
pairs(iris[1:4],pch = 21, bg = c("white", "black", "gray")[unclass(iris$Species)])
dev.off()