3.1 The One-Dimensional Scatterplot

# Fig. 3.2.: Evolution of the one-dim. scatter plot for Sc_INAA
library(StatDA)
data(chorizon)

pdf("fig-3-2.pdf",width=6,height=7)
par(mfrow=c(3,1))
par(mar=c(5,1,1,1))
stripchart(chorizon[,"Sc_INAA"],method="overplot",ylim=c(0.8,1.2),pch=3,cex=0.45)
mtext("Sc in C-horizon [mg/kg], points overplotted",side=1,line=3,cex=1.1)

stripchart(chorizon[,"Sc_INAA"],method="stack",ylim=c(0.5,225),pch=3,cex=0.45)
mtext("Sc in C-horizon [mg/kg], points stacked",side=1,line=3,cex=1.1)

set.seed(1)
stripchart(chorizon[,"Sc_INAA"],method="jitter",ylim=c(0.8,1.2),pch=3,cex=0.45)
mtext("Sc in C-horizon [mg/kg], points jittered",side=1,line=3,cex=1.1)

dev.off()