data(ozone,package="plyr")
oz72 <- ozone[,,72]
pdf("scatter1d.pdf",width=7,height=6)
par(mfrow=c(3,1))
par(mar=c(3,1,3,1))
stripchart(oz72,method="overplot",ylim=c(0.5,1.5),pch=1)
title("Mehrfachpunkte werden überplottet.")
stripchart(oz72,method="stack",ylim=c(0.9,20),cex=0.31,pch=1)
title("Mehrfachpunkte sind vertikal versetzt.")
stripchart(oz72,method="jitter",ylim=c(0.8,1.2),pch=1)
title("Die vertikale Position wird zufällig gewählt.")
dev.off()