soil.texture: Soil texture triangle plot

Description

Display a soil texture triangle with optional grid, labels and soil texture points.

Usage

soil.texture(soiltexture=NULL,
 show.names=TRUE,show.lines=TRUE,show.grid=FALSE,bg.names="white",main="",
 col.axis="black",col.names="gray",col.lines="gray",col.grid="gray",...)

Arguments

soiltexture

Matrix of soil textures where each row is a soil sample and three columns contain the proportions of the components sand, silt and clay in the range 0 to 1 or percentages in the range 0 to 100.

show.names

Logical - whether to show the name of different soil types within the soil triangle.

show.lines

Logical - whether to show the boundaries of the different soil types within the soil triangle.

show.grid

Logical - whether to show grid lines at each 10 level of each soil component.

bg.names

Color to use when drawing a blank patch for the names of soil types. Defaults to white but the user may wish to use the plot background color.

main

The title of the soil texture plot. Defaults to none.

col.axis

Color of the triangular axes, ticks and labels.

col.names

Color of the soil names. Defaults to gray.

col.lines

Color of the boundary lines. Defaults to gray.

col.grid

Color of the grid lines. Defaults to gray.

...

Additional arguments passed to show.soil.texture or points.

Value

If soiltexture was included, a list of the x,y positions of the soil types plotted. If not, nil.

Details

soil.texture displays a triangular plot area on which soil textures defined as proportions of sand, silt and clay can be plotted. Optional grid, vertex labels, soil type divisions and names may also be displayed. If a matrix of soil textures is present, this will be passed to show.soil.texture and the textures will be plotted.

Examples

Run this code

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

Last chance! 50% off unlimited learning