data(soils)
soil.texture()
if(dev.interactive()) par(ask=TRUE)
main.title<-"DEFAULT"
soil.texture(soils,main=main.title,pch=2)
main.title<-"LINES AND NAMES"
soil.texture(soils,main=main.title,show.lines=TRUE,show.names=TRUE,
pch=3)
main.title<- "GRID AND LEGEND"
soil.texture(soils[1:6,],main=main.title,show.grid=TRUE,pch=4,
col.symbols=1:6,show.legend=TRUE)
if(dev.interactive()) par(ask=FALSE)
Run the code above in your browser using DataLab