A explicação do script a seguir está no artigo R na Prática – Parte23
setwd("C:\\geoStats\\dados\\jura_goovaerts")
dados=read.csv("jura_prediction.CSV",sep=";",
header=TRUE)
#setwd("C:\\geoStats\\figuras\\chap3")
#jpeg("Fig3_10.jpeg",width=5,height=5,
#units="in",res=300)
stripchart(Cd~Landuse,data=dados,method="jitter",
col=c("red","blue","green","mediumvioletred"))
#dev.off()