crop.triplot: Triplot of the different proportions of weeds, grains, and...

In elizabethastroud/Cropprocessing: Data organisation, classification and visualisation of archaeobotanical data to understand crop processing stage

Triplot of the different proportions of weeds, grains, and rachis compared to the ethnographic data

Description

Triangular diagram showing the percentages of weeds to grains to rachis of the entered data. The funcation create two side by side plots, with the first showing the ethnographic data: crop.tri.data and the second the entered archaeobotanical data.

Usage

crop.triplot(grain, rachis, weeds, pch=5, col="black", bg="black", sample=NULL,
samplelabel="Sample",legendlabel="Samples",cpch=NULL, cbg=NULL, ccol=NULL)

Arguments

grain	the column containing the amount of free threshing cereal grain in each sample
rachis	the column containing the amount of free threshing cereal rachis in each sample
weeds	the column containing the amount of weed seeds in each sample
pch	the symbol for the archaeobotanical samples, default is 5
col	the colour for the archaeobotanical samples, default is black
bg	the colour the background of the symbol, default is black
sample	row number of the sample/s to be labelled
samplelabel	label of the sample/s entered in the sample argument to be shown on graph
legendlabel	the name of the archaeobotanical assemblage to appear in the legend
cpch	the symbols of the model data as a list
cbg	the background colours of the symbols of the model data
ccol	the colours of the symbols of the model data

Author(s)

Elizabeth Stroud

References

Jones, G. (1990) The application of present-day cereal processing studies to charred archaeobotanical remains. Circaea 6(2):91-96

Examples

##example data

samples<-c("s1","s2","s3","s4","s5","s6","s7","s8","s9","s10")
grain<-runif(10, min= 5, max=100)
rachis<-runif(10, min= 1, max=50)
weeds<-runif(10, min= 50, max=200)
data<-data.frame(samples,grain,rachis,weeds)

##usage

crop.triplot(grain=data$grain, rachis=data$rachis, weeds=data$weeds, col="blue")

## label specific sample

crop.triplot(grain=data$grain, rachis=data$rachis, weeds=data$weeds, col="blue",
sample=2, samplelabel="s2")

elizabethastroud/Cropprocessing documentation built on Sept. 27, 2024, 3:03 p.m.