library(StatDA)
data(moss)
Cu=moss[,"Cu"]
Ni=moss[,"Ni"]
pdf("fig-19-2.pdf",width=9,height=4.5)
par(mfrow=c(1,2))
plot(Cu,Ni)
plot(Cu,Ni,xlab="Cu in Moss [mg/kg]", ylab="Ni in Moss [mg/kg]",pch=3, cex=0.7,cex.lab=1.2)
dev.off()
|
|
# Figure 19.2.: scatterplot Cu - Ni in Moss
library(StatDA) data(moss) Cu=moss[,"Cu"] Ni=moss[,"Ni"] pdf("fig-19-2.pdf",width=9,height=4.5) par(mfrow=c(1,2)) plot(Cu,Ni) plot(Cu,Ni,xlab="Cu in Moss [mg/kg]", ylab="Ni in Moss [mg/kg]",pch=3, cex=0.7,cex.lab=1.2) dev.off() |