rysgran.ternary functionpejrup.plot(x = x, lang = lang, axis.labels = axis.labels,
show.names = show.names, show.lines = show.lines,
show.legend = show.legend, show.grid = show.grid,
cex.axis = cex.axis, cex.names = cex.names,
col.labels = col.labels, col.axis = col.axis,
col.names = col.names, col.lines = col.lines,
col.grid = col.grid, lty.grid = par("lty"))class.percent function. The sum of each row must be 100 or 1, otherwise there may be distortions in the position ofshow.legend. Default is TRUEshow.names. Default is TRUElabels. Default is "black"show.names is TRUE. Default is "gray"show.lines is TRUE. Default is "black"show.grid is TRUE. Default is "gray"show.grid is TRUE. Default is "3"rysgran.ternary functionrysgran.ternary function. To generate the Pejrup ternary diagram in the rysgran.ternary function, the user must set the 'method' argument to "pejrup"gran.stats, class.percent, rysgran.ternary, rysgran.hist,rysgran.plot#Pejrup diagram
library(rysgran)
data(camargo2001)
tab<-camargo2001
percent <- class.percent(tab, mode="total", empty.col=FALSE, lang='en-US')
rysgran.ternary (x = percent[2:4], method = "pejrup")Run the code above in your browser using DataLab