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