A explicação do script a seguir está no artigo R na Prática – Parte24
setwd("C:\\geoStats\\dados\\radio_davis570")
dados<-read.csv("radio.CSV",sep=";",header=TRUE)
#setwd("C:\\geoStats\\figuras\\chap3")
#jpeg("Fig3_12.jpeg",width=5,height=5,
#units="in",res=300)
pairs(dados[1:4],pch=21,
bg=c("limegreen","mediumblue","magenta4",
"lightpink4"),cex=2)
#dev.off()